Discussion :

[meuah]

Bonjour tout le monde,

c'est encore moi!
Bon, ce soir, je cherche à faire la chose suivante :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim wba As Workbook
Dim wsa As Worksheet
Dim wsb As Worksheet
 
 
Set wba = ThisWorkbook
Set wsa = ActiveSheet
 
'pour chaque feuille de mon book
For Each wsb In wba
'dont le nom est supérieur au nom de la feuille active (les noms des feuilles sont des années 2001 à 2008)
    If wsb.Name >= wsa.Name Then
'tant que la colonne de la cellule courante est inférieure à "GA" (j'ai mis ça mais ça ne doit pas être bon)
        While ActiveCell.Column < "GA"
'alors copie de 3 cellules à partir de la feuille courante
            ActiveCell.Range("A1:C1").Copy
'copie dans une autre feuille
            Sheets("Tableau").Select
            Range("B3").PasteSpecial xlPasteValuesAndNumberFormats
'j'avance de 15 colonnes
            Sheets(wsb).Select
            ActiveCell.Column = ActiveCell.Column + 15
'fin de la boucle            
        Wend
        Sheets(wsa).Select
        Range("AR4:AT4").Copy
        Sheets("Tableau").Select
        Range("B2").PasteSpecial
    End If
Next wsb

Pour les initiés, ce code va être horrible, mais j'ai fait ce que j'ai pu à partir de mes petites bases ^^
Mais j'ai une erreur du type suivant :
nombre 'argument incorrect ou affectation de propriété incorrecte

Qu'est-ce que ça signifie?
Merci d'avance

[melouille56]

Une question d'abord:
le 'tant que la feuille courante est inférieure à GA'
Qu'entends-tu par là ?
Si la derniere colonne renseignée ne dépasse pas la colonne GA ?
Après, j'pense que j'pourrais t'aider sans trop de problèmes.
A toute

[meuah]

je me suis trompée, je voulais dire "tant que la colonne de la cellule courante est inférieure à "GA""
dsl

[fring]

B'jour tlm,

Un premier nettoyage mais il reste encore une grosse inconnue

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
17
18
19
20
21
22
23
24
25
26
Sub test()
'Dim wba As Workbook <-- ne sert à rien
Dim wsa As Worksheet
Dim wsb As Worksheet
 
 
'Set wba = ThisWorkbook <-- ne sert à rien
Set wsa = ActiveSheet
 
'pour chaque feuille de mon book
For Each wsb In ThisWorkbook
'dont le nom est supérieur au nom de la feuille active (les noms des feuilles sont des années 2001 à 2008)
    If Val(wsb.Name) >= Val(wsa.Name) Then
'tant que la colonne de la feuille courante est inférieure à "GA" (j'ai mis ça mais ça ne doit pas être bon)
        ' *** While ActiveCell.Column < "GA" <-- A CORRIGER
'alors copie de 3 cellules à partir de la feuille courante vers une autre feuille
            wsa.Range("A1:C1").Copy Sheets("Tableau").Range("B3")
'j'avance de 15 colonnes
            ' *** Sheets(wsb).Select <-- A CORRIGER
            ' *** ActiveCell.Column = ActiveCell.Column + 15 <-- A CORRIGER
'fin de la boucle
        Wend
        wsa.Range("AR4:AT4").Copy Sheets("Tableau").Range("B2")
    End If
Next wsb
End Sub

Que veux tu faire en te déplaçant de 15 colonnes ???

[meuah]

Après m'être déplacée de 15 colonnes, j'espère recopier les données de ma cellule courante et les copier dans la feuille "Tableau", d'où la boucle; et quand j'arrive à la colonne "GA" ou plus, je passe à la feuille suivante et je recommence

[fring]

Après m'être déplacée de 15 colonnes, j'espère recopier les données de ma cellule courante et les copier dans la feuille "Tableau", d'où la boucle; et quand j'arrive à la colonne "GA" ou plus, je passe à la feuille suivante et je recommence

Et tu dis ça où dans ta boucle que tu veux recopier les données de la cellule courante ?

Dis moi plutôt quelles cellules tu veux copier et où

[melouille56]

Bon alors tu ne peux pas comparer des numéros de colonnes avec des lettres de colonnes. Comme tu sais que tu parles de la colonne GA, remplace cette dernière par 183, qui est le numéro de la colonne GA.

[meuah]

j'vais déjà essayer ça ^^
Merci

[melouille56]

ta cellule active de départ, est la cellule A1 ? Parce que c'est très risqué, à moins d'être sûr à 100% que la cellule active t'intéresse.

[meuah]

en fait, je voudrais choisir une cellule et effectuer les copier-coller à partir de la cellule courante, c'est pour ça que je ne donne pas de cellule fixe de départ.
Sinon, comment récupérer le numéro de la colonne de la cellule courante