cs_matth72
Messages postés71Date d'inscriptionjeudi 21 février 2008StatutMembreDernière intervention 8 décembre 2011
-
21 mai 2008 à 11:11
cs_matth72
Messages postés71Date d'inscriptionjeudi 21 février 2008StatutMembreDerniè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+
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 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