Comment créer une boucle pour plage de cellules

roross · 8 Novembre 2012

Private Sub CommandButton7_Click()
If Range("A2") = "" Then
CB2 = "A2"
End If
'A
If Range("A2") <> "" Then
CB2 = "A4"
End If
If Range("A4") <> "" Then
CB2 = "A6"
End If
If Range("A6") <> "" Then
CB2 = "A8"
End If
If Range("A8") <> "" Then
CB2 = "A10"
End If
If Range("A10") <> "" Then
CB2 = "A12"
End If
If Range("A12") <> "" Then
CB2 = "A14"
End If
If Range("A14") <> "" Then
CB2 = "A16"
End If
If Range("A16") <> "" Then
CB2 = "A18"
End If
If Range("A18") <> "" Then
CB2 = "A20"
End If
If Range("A20") <> "" Then
CB2 = "A22"
End If
If Range("A22") <> "" Then
CB2 = "A24"
End If
If Range("A24") <> "" Then
CB2 = "A26"
End If
If Range("A26") <> "" Then
CB2 = "A28"
End If
If Range("A28") <> "" Then
CB2 = "A30"
End If
If Range("A30") <> "" Then
CB2 = "A32"
End If
If Range("A32") <> "" Then
CB2 = "A34"
End If
If Range("A34") <> "" Then
CB2 = "A36"
End If
If Range("A36") <> "" Then
CB2 = "A38"
End If
If Range("A38") <> "" Then
CB2 = "D2"
End If

'D
If Range("D2") <> "" Then
CB2 = "D4"
End If
If Range("D4") <> "" Then
CB2 = "D6"
End If
If Range("D6") <> "" Then
CB2 = "D8"
End If
If Range("D8") <> "" Then
CB2 = "D10"
End If
If Range("D10") <> "" Then
CB2 = "D12"
End If
If Range("D12") <> "" Then
CB2 = "D14"
End If
If Range("D14") <> "" Then
CB2 = "D16"
End If
If Range("D16") <> "" Then
CB2 = "D18"
End If
If Range("D18") <> "" Then
CB2 = "D20"
End If
If Range("D20") <> "" Then
CB2 = "D22"
End If
If Range("D22") <> "" Then
CB2 = "D24"
End If
If Range("D24") <> "" Then
CB2 = "D26"
End If
If Range("D26") <> "" Then
CB2 = "D28"
End If
If Range("D28") <> "" Then
CB2 = "D30"
End If
If Range("D30") <> "" Then
CB2 = "D32"
End If
If Range("D32") <> "" Then
CB2 = "D34"
End If
If Range("D34") <> "" Then
CB2 = "D36"
End If
If Range("D36") <> "" Then
CB2 = "D38"
End If
If Range("D38") <> "" Then
CB2 = "G2"
End If

'G
If Range("G2") <> "" Then
CB2 = "G4"
End If
If Range("G4") <> "" Then
CB2 = "G6"
End If
If Range("G6") <> "" Then
CB2 = "G8"
End If
If Range("G8") <> "" Then
CB2 = "G10"
End If
If Range("G10") <> "" Then
CB2 = "G12"
End If
If Range("G12") <> "" Then
CB2 = "G14"
End If
If Range("G14") <> "" Then
CB2 = "G16"
End If
If Range("G16") <> "" Then
CB2 = "G18"
End If
If Range("G18") <> "" Then
CB2 = "G20"
End If
If Range("G20") <> "" Then
CB2 = "G22"
End If
If Range("G22") <> "" Then
CB2 = "G24"
End If
If Range("G24") <> "" Then
CB2 = "G26"
End If
If Range("G26") <> "" Then
CB2 = "G28"
End If
If Range("G28") <> "" Then
CB2 = "G30"
End If
If Range("G30") <> "" Then
CB2 = "G32"
End If
If Range("G32") <> "" Then
CB2 = "G34"
End If
If Range("G34") <> "" Then
CB2 = "G36"
End If
If Range("G36") <> "" Then
CB2 = "G38"
End If
If Range("G38") <> "" Then
CB2 = "J2"
End If

'J
If Range("J2") <> "" Then
CB2 = "J4"
End If
If Range("J4") <> "" Then
CB2 = "J6"
End If
If Range("J6") <> "" Then
CB2 = "J8"
End If
If Range("J8") <> "" Then
CB2 = "J10"
End If
If Range("J10") <> "" Then
CB2 = "J12"
End If
If Range("J12") <> "" Then
CB2 = "J14"
End If
If Range("J14") <> "" Then
CB2 = "J16"
End If
If Range("J16") <> "" Then
CB2 = "J18"
End If
If Range("J18") <> "" Then
CB2 = "J20"
End If
If Range("J20") <> "" Then
CB2 = "J22"
End If
If Range("J22") <> "" Then
CB2 = "J24"
End If
If Range("J24") <> "" Then
CB2 = "J26"
End If
If Range("J26") <> "" Then
CB2 = "J28"
End If
If Range("J28") <> "" Then
CB2 = "J30"
End If
If Range("J30") <> "" Then
CB2 = "J32"
End If
If Range("J32") <> "" Then
CB2 = "J34"
End If
If Range("J34") <> "" Then
CB2 = "J36"
End If
If Range("J36") <> "" Then
CB2 = "J38"
End If
If Range("J38") <> "" Then
CB2 = "M2"
End If

'M
If Range("M2") <> "" Then
CB2 = "M4"
End If
If Range("M4") <> "" Then
CB2 = "M6"
End If
If Range("M6") <> "" Then
CB2 = "M8"
End If
If Range("M8") <> "" Then
CB2 = "M10"
End If
If Range("M10") <> "" Then
CB2 = "M12"
End If
If Range("M12") <> "" Then
CB2 = "M14"
End If
If Range("M14") <> "" Then
CB2 = "M16"
End If
If Range("M16") <> "" Then
CB2 = "M18"
End If
If Range("M18") <> "" Then
CB2 = "M20"
End If
If Range("M20") <> "" Then
CB2 = "M22"
End If
If Range("M22") <> "" Then
CB2 = "M24"
End If
If Range("M24") <> "" Then
CB2 = "M26"
End If
If Range("M26") <> "" Then
CB2 = "M28"
End If
If Range("M28") <> "" Then
CB2 = "M30"
End If
If Range("M30") <> "" Then
CB2 = "M32"
End If
If Range("M32") <> "" Then
CB2 = "M34"
End If
If Range("M34") <> "" Then
CB2 = "M36"
End If
If Range("M36") <> "" Then
CB2 = "M38"
End If
If Range("M38") <> "" Then
CB2 = "P2"
End If

'P
If Range("P2") <> "" Then
CB2 = "P4"
End If
If Range("P4") <> "" Then
CB2 = "P6"
End If
If Range("P6") <> "" Then
CB2 = "P8"
End If
If Range("P8") <> "" Then
CB2 = "P10"
End If
If Range("P10") <> "" Then
CB2 = "P12"
End If
If Range("P12") <> "" Then
CB2 = "P14"
End If
If Range("P14") <> "" Then
CB2 = "P16"
End If
If Range("P16") <> "" Then
CB2 = "P18"
End If
If Range("P18") <> "" Then
CB2 = "P20"
End If
If Range("P20") <> "" Then
CB2 = "P22"
End If
If Range("P22") <> "" Then
CB2 = "P24"
End If
If Range("P24") <> "" Then
CB2 = "P26"
End If
If Range("P26") <> "" Then
CB2 = "P28"
End If
If Range("P28") <> "" Then
CB2 = "P30"
End If
If Range("P30") <> "" Then
CB2 = "P32"
End If
If Range("P32") <> "" Then
CB2 = "P34"
End If
If Range("P34") <> "" Then
CB2 = "P36"
End If
If Range("P36") <> "" Then
CB2 = "P38"
End If
If Range("P38") <> "" Then
CB2 = "S2"
End If

'S
If Range("S2") <> "" Then
CB2 = "S4"
End If
If Range("S4") <> "" Then
CB2 = "S6"
End If
If Range("S6") <> "" Then
CB2 = "S8"
End If
If Range("S8") <> "" Then
CB2 = "S10"
End If
If Range("S10") <> "" Then
CB2 = "S12"
End If
If Range("S12") <> "" Then
CB2 = "S14"
End If
If Range("S14") <> "" Then
CB2 = "S16"
End If
If Range("S16") <> "" Then
CB2 = "S18"
End If
If Range("S18") <> "" Then
CB2 = "S20"
End If
If Range("S20") <> "" Then
CB2 = "S22"
End If
If Range("S22") <> "" Then
CB2 = "S24"
End If
If Range("S24") <> "" Then
CB2 = "S26"
End If
If Range("S26") <> "" Then
CB2 = "S28"
End If
If Range("S28") <> "" Then
CB2 = "S30"
End If
If Range("S30") <> "" Then
CB2 = "S32"
End If
If Range("S32") <> "" Then
CB2 = "S34"
End If
If Range("S34") <> "" Then
CB2 = "S36"
End If
If Range("S36") <> "" Then
CB2 = "S38"
End If
If Range("S38") <> "" Then
CB2 = "V2"
End If

'V
If Range("V2") <> "" Then
CB2 = "V4"
End If
If Range("V4") <> "" Then
CB2 = "V6"
End If
If Range("V6") <> "" Then
CB2 = "V8"
End If
If Range("V8") <> "" Then
CB2 = "V10"
End If
If Range("V10") <> "" Then
CB2 = "V12"
End If
If Range("V12") <> "" Then
CB2 = "V14"
End If
If Range("V14") <> "" Then
CB2 = "V16"
End If
If Range("V16") <> "" Then
CB2 = "V18"
End If
If Range("V18") <> "" Then
CB2 = "V20"
End If
If Range("V20") <> "" Then
CB2 = "V22"
End If
If Range("V22") <> "" Then
CB2 = "V24"
End If
If Range("V24") <> "" Then
CB2 = "V26"
End If
If Range("V26") <> "" Then
CB2 = "V28"
End If
If Range("V28") <> "" Then
CB2 = "V30"
End If
If Range("V30") <> "" Then
CB2 = "V32"
End If
If Range("V32") <> "" Then
CB2 = "V34"
End If
If Range("V34") <> "" Then
CB2 = "V36"
End If
If Range("V36") <> "" Then
CB2 = "V38"
End If
'If Range("S38") <> "" Then
'CB2 = "V2"
'End If

ActiveCell.Offset(0, 0).Value = CB1.Text
ActiveCell.Offset(0, 1).Value = Tc.Text
ActiveCell.Offset(1, 0).Value = T3.Text
LC1.Caption = Val(LC1) + 1
'ActiveCell.Offset(2, 0).Select
End Sub

Papou-net · 8 Novembre 2012

Re : Comment créer une boucle pour plage de cellules

Comme ça ... P...n de B...l de M...e

Pierrot93 · 8 Novembre 2012

Re : Comment créer une boucle pour plage de cellules

Bonjour, Roro, Papou🙂

regarde du cloté d'une boucle "for" avec un "step" de 2.....

bonne journée
@+

Papou-net · 8 Novembre 2012

Re : Comment créer une boucle pour plage de cellules

RE : Bonjour Pierrot,

Je te trouve bien aimable avec notre "ami".

2,5 ans d'ancienneté sur le forum, 2 messages, 0 mot de politesse. Je me suis abstenu de lui conseiller de "relire" la charte, je pense que ce serait peine perdue.

En tout cas, si je devais délivrer le titre de malotru XLD, je saurais pour qui voter.

Bonne journée à toi.

Cordialement.

Edit : je rectifie, je n'avais pas vu le message précédent où j'ai cru lire un Salut...Merci.
Mais quand-même, quel minimalisme dans les messages !

Comment créer une boucle pour plage de cellules

roross

XLDnaute Junior

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Discussions similaires

Comment créer une boucle pour plage de cellules

roross

XLDnaute Junior

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency