Mise en formet de donnée

[Guigui]

Bonjour le forum,

Voici mon souci, je dois mettre en forme des données dans une feuille, pour pouvoir utilser un programme déja existant dessus.

je commence donc mon "brodage" en VBA ...

Ca coince directe, car je souhaite utilsé 2 fonctions For ... Next et ca ne fonctionne pas ... 1 ok, mais pas 2...

Je vous met un bout de code

Dim k As Variant
Dim j As Variant

[B2].Select
For j = 4 To 8
For k = 6 To 10

If Not Cells(3, j) = "" Then

MsgBox ("nom trouvé - " & Cells(3, j))
Cells(3, j).Copy Sheets("MASQUE").Cells(k, 3)
End If
Next j
Next k

Le principe, on regarde si il y a un nom dans la case, si oui, on le copie dans une autre feuille et on passe a la case suivante, si on retrouve un nom on le copie en dessous du nom déjà copié...

je vous joint également un bout du fichier .. pour imagé un peu

Merci d'avance pour votre aide
A+
Guillaume

 

[wilfried_42]

Re : Mise en formet de donnée

bojour guigui

les boucles For next imbriquée doivent etre closes dans le sens inverses de leur ouverture

For i = 1 to 10
for j = 1 to 5
next j
next i

ce sont les next qui sont inversés dans ton code

 

[mutzik]

Re : Mise en formet de donnée

Bonjour Guigui,

le dernier for doit devenir le premier next, et tu as inversé les deux ...

et vlan, encore une collision, salut wilfried

 

[Guigui]

Re : Mise en formet de donnée

Re, mutzik, wilfried_42,

Merci a vous deux pour cette précision..

J'avais trouvé une parade avec

For j = 4 To 8
'j = la colonne

If Not Cells(3, j) = "" Then

MsgBox ("nom trouvé - " & Cells(3, j))
Cells(3, j).Copy Destination:=Sheets("MASQUE").Range("C65536").End(xlUp)(2)

End If
Next j

C'est pareil nan ? (niveau résultat)

Merci encore
A+
Guillaume

 

[Guigui]

Re : Mise en format de donnée

re tous le monde,

je pensais que mon code fonctionnait.. mais en faite non...
(marche qu'une fois !! ) je comprend pas d'ailleurs !

Pouvez m'aider ? je veux simplement copier des données venant d'une feuille

Sub CREATION()
Dim j As Variant

[B2].Select
For j = 4 To 8

If Not Cells(3, j) = "" Then

MsgBox ("nom trouvé - " & Cells(3, j))
Cells(3, j).Copy [...]

et les coller dans une autre feuille les uns en dessous des autres..

[...]
Destination:=Sheets("MASQUE").Range("C65536").End(xlUp)(2)

End If
Next j
End Sub

(je souhaite commencé les le collage que en dessous de la ligne 6...

je vous rejoint un petit exemple ...

merci d'avance pour votre aide
Guillaume