Comment créer une boucle pour plage de cellules

R

roross

XLDnaute Junior
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
 

Pièces jointes

  • Etiquette.xlsm
    127.4 KB · Affichages: 48
  • Etiquette.xlsm
    127.4 KB · Affichages: 57
  • Etiquette.xlsm
    127.4 KB · Affichages: 50
Dernière édition:
Trier par date Trier par votes
Papou-net

Papou-net

XLDnaute Barbatruc
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 !
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
Microsoft 365 Créer une boucle sur une plage de cellules
Réponses
8
Affichages
649
Dravol
D
V
  • Résolu(e)
Microsoft 365 Macro pour sélectionner une plage de cellules selon une couleur de remplissage donnée
Réponses
2
Affichages
811
vash966
V
D
  • Question
Microsoft 365 vba - appliquer un formula local sur une plage filtrée
Réponses
2
Affichages
452
douguy
D
Usine à gaz
  • Question
Microsoft 365 interdire le double clic et clic droit sur une plage de cellules
Réponses
12
Affichages
2 K
Usine à gaz
Usine à gaz
M
  • Question
macro pour affecter une valeur à une plage de cellules en fonction de la valeur d'une autre cellule
Réponses
1
Affichages
5 K
natorp
natorp
Menibelus
  • Question
XL 2016 [Résolu]Masquer une feuille en fonction de cellules
2
Réponses
21
Affichages
3 K
Menibelus
Menibelus
R
  • Question
Boucle pour Range("A2:V38")
Réponses
2
Affichages
6 K
roross
R
A
  • Question
faire un "et" logique avec masque (résolu)
2
Réponses
15
Affichages
8 K
anthony0903
A
S
  • Question
Lister une plage de cellules pour pouvoir les comparer
2
Réponses
17
Affichages
1 K
Si...
S
R
  • Question
Selctionné une cellule a partir ComboBox sur Range("A2:V38")
Réponses
4
Affichages
7 K
roross
R

Membres actuellement en ligne

11 membres et 117 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 379
Messages
2 087 771
Membres
103 662
dernier inscrit
rterterert