Boucle avec MsgBox

lynyrd · 4 Mars 2008

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 · 4 Mars 2008

Re : Boucle avec MsgBox

Bonjour lynyrd,

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

Code:

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 · 4 Mars 2008

Re : Boucle avec MsgBox

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

Boucle avec MsgBox

lynyrd

XLDnaute Impliqué

Pièces jointes

bqtr

XLDnaute Accro

lynyrd

XLDnaute Impliqué

Discussions similaires

Boucle avec MsgBox

lynyrd

XLDnaute Impliqué

Pièces jointes

bqtr

XLDnaute Accro

lynyrd

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency