Bonjour à toutes et à tous,
J'ai un souci de modification d'une macro qui m'avait été transmise par un membre su site (je n'ai pas retrouvé le fil) et qui fonctionne très bien :
la fonction de cette macro est d'ajouter un 33 devant tout numéro de téléphone saisi.
Cette macro ajoute le 33 sur toutes les lignes qui contiennent un numéro de téléphone.
Je souhaiterai que cet ajout ne se fasse que sur la cellule concerné : ActiveCell.Offset(0, -8).Select
Évidemment, malgré tous mes essais, je n'ai pas réussi à la modifier valablement.
Pourriez-vous m'aider encore une fois ?
Un grand merci à vous tous,
Amicalement,
Calimero,
J'ai un souci de modification d'une macro qui m'avait été transmise par un membre su site (je n'ai pas retrouvé le fil) et qui fonctionne très bien :
Code:
Sub AjouteN33()
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWorkbook.ActiveSheet.Select
ActiveSheet.Unprotect Password:="Krameri"
[B]ActiveCell.Offset(0, -8).Select[/B]
Dim Lg%, i%
Application.ScreenUpdating = False
Lg = Range("n65536").End(xlUp).Row
For i = 4 To Lg
If Left(Cells(i, "n"), 2) <> "33" And Cells(i, "n") <> "" Then
Cells(i, "n") = "33" & Cells(i, "n")
End If
Next i
ActiveCell.Offset(0, 8).Select
End Sub
la fonction de cette macro est d'ajouter un 33 devant tout numéro de téléphone saisi.
Cette macro ajoute le 33 sur toutes les lignes qui contiennent un numéro de téléphone.
Je souhaiterai que cet ajout ne se fasse que sur la cellule concerné : ActiveCell.Offset(0, -8).Select
Évidemment, malgré tous mes essais, je n'ai pas réussi à la modifier valablement.
Pourriez-vous m'aider encore une fois ?
Un grand merci à vous tous,
Amicalement,
Calimero,
Dernière édition: