Boucle avec MsgBox

[lynyrd]

Bonjour
En imaginant que les données en colonnes A,B et C soient remplies jusqu'à la ligne 65536,est t'il possible de faire une boucle en code VBA afin d'eviter d'ecrire X fois le même code.
Merci .

 

[bqtr]

Re : Boucle avec MsgBox

Bonjour lynyrd,

Si j'ai bien compris, essaye comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
   MsgBox "Adresse :" & "   " & Target.Offset(0, 1) & Chr(10) _
   & "N° Tel :" & "   " & Target.Offset(0, 2)
End If
End Sub

Code valable pour toute la colonne A

Bonne journée

 

[lynyrd]

Re : Boucle avec MsgBox

Merci bqtr c'est tout à fait cela.
Bonne Journée .