Boucle pour Range("A2:V38")

[roross]

Salut;
je cherche une boucle pour :
déplacement de A2-A4 ... A38 sauté D2-D4 ... D38 sauté G2 ... G38 sauté J2 ... J38 sauté M2 ... M38 sauté P2 ... P38 sauté S2 ... S38 sauté V2 ... V38 arrêté la boucle sur V38
exemple ci-joint
Private Sub CommandButton7_Click()
If Range("A2") = "" Then
CB2 = "A2"
End If
--
--
If Range("V36") <> "" Then
CB2 = "V38"
End If
End Sub

 

[Dranreb]

Re : Boucle pour Range("A2:V38")

Bonsoir.
À tester:

Private Sub CommandButton7_Click()
Dim TV() As Variant, Trouvé As Boolean, L As Long, C As Long
TV = Range("A1:W39").Value
For C = 1 To 22 Step 3
   For L = 2 To 38 Step 2
      Trouvé = TV(L, C) = ""
      If Trouvé Then Exit For
      Next L
   If Trouvé Then Exit For
   Next C
If Trouvé Then
   CB2 = Cells(L, C).Address(False, False)
Else
   MsgBox "Aucun emplacement libre"
   End If

À +

 

[roross]

Re : Boucle pour Range("A2:V38")

Bonjour; Dranreb
Merci pour ta repense
ça marche bien avec moi
merci