Parcours de cellule et fusionner cellule [Résolu]

Signaler
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011
-
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011
-
salut a tous je suis débutant en vba solidworks
je voudrais controler une plage de cellules si le mot "note 1" est dans une cellule je dois fusionner celci avec les 3 cellules de droite
j'ai commencé qql chose
Sub toto()
Dim colonne As Integer
Dim ligne As Single

For colonne = 1 To 7
For ligne = 1 To 55
Debug.Print ligne, colonne
Debug.Print ActiveSheet.Cells(ligne, colonne).Select
If ActiveSheet.Cells(ligne, colonne).Text = "note 1" Then
Range("A & ligne & : F & ligne & ").Merge
Exit For
Exit For
End If
Next ligne
Next colonne
End Sub
voila bon courage merci
a+

2 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Attention aux noms de variables et aux guillemets
Range("A" & ligne & ": F" & ligne).Merge

Aussi les 2 Exit For ne doivent pas être groupés comme tu l'as fait. Le premier te renvoit tout juste après le premier Next. Donc, il te faudrait mettre le deuxième Exit For à cet endroit. Mais pour éviter qu'il ne soit exécuté à chaque passage, tu dois y mettre une condition (variable booléenne) qui vérifie s'il doit l'exécuter ou non.
.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

ok merci pour la solution et pour le conseil
a bientot a+