said52
Messages postés4Date d'inscriptionvendredi 4 août 2006StatutMembreDernière intervention15 février 2009
-
7 sept. 2007 à 23:58
said52
Messages postés4Date d'inscriptionvendredi 4 août 2006StatutMembreDernière intervention15 février 2009
-
8 sept. 2007 à 17:57
Salut,
J' ai un petit souci sur une macro VBA :
Valez = ""
Do While varx < 47 And fin = False
If Valez <> "X" And Valez <> "x" Then
varx = varx + 1
Valez = ActiveSheet.Cells(varx, 1).Value
Else
fin = True
End If
Loop
Lorsque je lance la macro la boucle se fait entierement( C ici le bug ) , en mode debug j'ai bien la sorite de la boucle quand la cellule contient X ou x.
said52
Messages postés4Date d'inscriptionvendredi 4 août 2006StatutMembreDernière intervention15 février 2009 8 sept. 2007 à 17:57
Hello,
j'ai essayer ceci , mais ca marche pas ( le but de ma macro est d' ouvrir chaques feuilles du classeur, et de trouver la ligne contenant un X en 1 colonne et de les copier dans la Feuille Feuil1) :
Dim Current As Worksheet
For Each Current In Worksheets
Posit = 26
fin = False
If Current.Name "Mod'emploi" Or Current.Name "Mod Chiffr évol" Or Current.Name = "Feuil1" Then
Else
Posit = 26
Valez = ""
Dim x As Variant
Set Plage = Current.Range(Cells(1, 1), Cells(47, 1))
For Each Cellule In Plage
If Cellule.Value <> "" Then
Posit = Application.WorksheetFunction.Find("X", Cellule.Value)
If Posit > 0 Then
Posit = Application.WorksheetFunction.Find("X", Cellule.Value)
End If
If Posit > 0 Then
Cellule.Activate
MsgBox Current.Name
Sheets(Current.Name).Select
code = ActiveSheet.Cells(Posit, 2).Value
devl = ActiveSheet.Cells(Posit, 3).Value
Sheets("Feuil1").Select
ActiveSheet.Cells(posi, 2) = Current.Name
ActiveSheet.Cells(posi, 3) = code
ActiveSheet.Cells(posi, 4) = devl
posi = posi + 1
End If
End If
Next
End If
Next