Discussion :

[Trooper2]

Bonsoir,

Me revoila pour la deuxième fois aujourd'hui. J'ai résolu mes petits problèmes précédents, mais me voila confronté à une nouvelle problèmatique.
Sur mon code précédent, je copiais les données d'une colonne, vers une ligne dans une autre feuille. Un contrôle permet de tester si une celulle précédente est pleine ou vide. Cela permet de passer à la ligne suivante ou non et le tout avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sheets("XXX").Select
valeurA2 = Range("A2").Value
If valeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
 
ligne_active_base = ActiveCell.Row
 
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Ca marche terrible mais maintenant que je selectionne des celulles un peu partout dans une feuille, et bien je n'arrive plus à sauter de ligne dans la feuilles de recopie des infos voulues.
Pour être plus clair, imaginez que vous avez les celulles A2 à W22 remplies par des données dans la feuille "XXX"
Et bien je souhaiterai passer à la ligne de A3 à W23 si la Cellule A2 est pleine et ainsi de suite, (Si la celulle A3 est pleine, alors passer à la ligne A4 pour la remplir avec mes données de A4 à W24) ...

[ouskel'n'or]

à la place de Selection, utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A" & ligne_active_base).PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True

et incrépente ligne_active_base chaque fois que la ligne est "remplie"

[Trooper2]

J'ai le même résultat avec ce petit changement. J'ai beau chercher mais je ne trouve pas de solution pour le moment.

Merci d'avoir essayé, si tu as d'autres idées, elles seront les bienvenues.

[illight]

Avec une boucle de ce genre la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    For c = 2 To Rows.Count
        If Cells(c, 1).Value = "" Then
            Cells(c, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Exit For
        End If
    Next c

Qui colle la colonne copiée (bien sur il faut copier la ligne avant en faisant un rows.copy) qui colle la ligne quand c'est vide

A toi après de le mettre en place pour ce que tu veux faire suivant si c'est une ligne ou une cellule que tu veux copier

[Trooper2]

Ca m'a l'air pas mal comme code, mais où dois-je le placer ?

"Qui colle la colonne copiée (bien sur il faut copier la ligne avant en faisant un rows.copy) qui colle la ligne quand c'est vide", Je suis un gros nul mais je ne comprend pas.

"A toi après de le mettre en place pour ce que tu veux faire suivant si c'est une ligne ou une cellule que tu veux copier"
La ce sont plusieurs cellules identifiées et dispercées que je veux recopier en une seule ligne. Et au fur et à mesure un tableau, (sur une autre feuille ou dans un autres fichier Xls), se constitue avec les donnéees d'un formulaire.

J'espère que je suis clair.

Merci

[Trooper2]

Aprés quelques essais, la ligne est bien copiée, le curseur passe bien à la cellule suivante. Mais le problème reste le même, à savoir que les données du formulaire se recopient sur la première ligne, (de A2 à W22).
Même si je lui entre de données manuelles de A3 à W23, les données se placent toujours en A2.
Rien à faire, il ne va pas de lui même en A4

Dur, Dur le code, mais je m'accroche .

[illight]

Le code que j'ai commence a 2, c'est peut etre pour ça

Pour que mon code marche la, il faut que les cellules A1 et B1 ait des donnée ssinon ça marchera pas


Je vais t'expliquer ce que j'ai écrit avec des commentaire sous chaque phrase :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For c = 2 To Rows.Count
'parcours la feuille courante en commencant a partir de la deuxième ligne
        If Cells(c, 1).Value = "" Then
'regarde si la cellule "Ac" (c étant la variable qui boucle) est vide
            Cells(c, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'si c'est vide, ça colle la ligne la où c'est vide
            Exit For
'ça sort de la boucle car on a trouvé la dernière ligne vide ou coller la donnee
        End If
    Next c

J'espère que c'est plus clair.

Sinon, si tu utilise ce code, remet moi le code que tu as écrit avec ça, et je verrai ce qu eje peux faire avec en écrivant le code que tu as écrit