Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
Sujet : Macro excel en vba [ Archives Visual Basic / VBA ] (fernand22fr)
|
Macro excel en vba
le 11/06/2003 16:23:33
fernand22fr
|
je souhaiterais realisé une fonction qui me permettrai de changer une lettre dans toutes les cellules pas une autre lettre, exemple "l" avec "r" Je debute vraiment en vba,j'espere que quelqu'un pourra m'aider Merci a+
|
|
|
|
Re : Macro excel en vba
le 12/06/2003 10:58:56
sylric
|
Cette procédure change les caractères sur les cellules sélectionnées avant son lancement. Si tu as besoin d'aide pour la modifier, fais un signe ! A+
Public Sub ChangeCarateres()
Const CaractereSupprime As String = "l"
Const CaractereDeRemplacement As String = "r"
On Error Resume Next
Aire = Selection.Address(, , xlR1C1)
If InStr(1, Aire, ":") <> 0 Then
ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, InStr(1, Aire, ":") - (InStr(1, Aire, "C") + 1))
LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1))
Aire = Mid(Aire, InStr(1, Aire, ":") + 1)
ColonneFin = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C"))
LigneFin = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1))
Else
ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C"))
LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1))
ColonneFin = ColonneDebut
LigneFin = LigneDebut
End If
For i = ColonneDebut To ColonneFin
For j = LigneDebut To LigneFin
tmp = Cells(j, i)
If Not tmp = "" Then
For k = 1 To Len(tmp)
If Mid(tmp, k, 1) = CaractereSupprime Then Mid(tmp, k, 1) = CaractereDeRemplacement
Next k
Cells(j, i) = tmp
End If
Next j
Next i
End Sub
|
------------------------------ Réponse au message : ------------------------------- > je souhaiterais realisé une fonction qui me permettrai de changer une lettre dans toutes les cellules pas une autre lettre, exemple "l" avec "r" > Je debute vraiment en vba,j'espere que quelqu'un pourra m'aider > Merci a+
|
|
|
|
Re : Macro excel en vba
le 13/06/2003 13:54:04
fernand22fr
|
Merci beaucoup 8D ------------------------------- Réponse au message : ------------------------------- > Cette procédure change les caractères sur les cellules sélectionnées avant son lancement. > Si tu as besoin d'aide pour la modifier, fais un signe ! > > A+ > >
> Public Sub ChangeCarateres()
> Const CaractereSupprime As String = "l"
> Const CaractereDeRemplacement As String = "r"
> On Error Resume Next
> Aire = Selection.Address(, , xlR1C1)
> If InStr(1, Aire, ":") <> 0 Then
> ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, InStr(1, Aire, ":") - (InStr(1, Aire, "C") + 1))
> LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1))
> Aire = Mid(Aire, InStr(1, Aire, ":") + 1)
> ColonneFin = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C"))
> LigneFin = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1))
> Else
> ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C"))
> LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1))
> ColonneFin = ColonneDebut
> LigneFin = LigneDebut
> End If
> For i = ColonneDebut To ColonneFin
> For j = LigneDebut To LigneFin
> tmp = Cells(j, i)
> If Not tmp = "" Then
> For k = 1 To Len(tmp)
> If Mid(tmp, k, 1) = CaractereSupprime Then Mid(tmp, k, 1) = CaractereDeRemplacement
> Next k
> Cells(j, i) = tmp
> End If
> Next j
> Next i
> End Sub
>
>
>
>
>
>
> |
> > > > ------------------------------ > Réponse au message : > ------------------------------- > > > je souhaiterais realisé une fonction qui me permettrai de changer une lettre dans toutes les cellules pas une autre lettre, exemple "l" avec "r" > > Je debute vraiment en vba,j'espere que quelqu'un pourra m'aider > > Merci a+ >
|
|
|
Classé sous : vba, macro, excel, lettre
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|