Parcours de cellule et fusionner cellule

Résolu
cs_matth72 Messages postés 71 Date d'inscription jeudi 21 février 2008 Statut Membre Dernière intervention 8 décembre 2011 - 21 mai 2008 à 11:11
cs_matth72 Messages postés 71 Date d'inscription jeudi 21 février 2008 Statut Membre Dernière intervention 8 décembre 2011 - 21 mai 2008 à 11:53
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

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 23 août 2018 21
21 mai 2008 à 11:23
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
3
cs_matth72 Messages postés 71 Date d'inscription jeudi 21 février 2008 Statut Membre Dernière intervention 8 décembre 2011
21 mai 2008 à 11:53
ok merci pour la solution et pour le conseil
a bientot a+
0