Discussion :

[Dadadidou]

Bonjour,

Je découvre l'univers des macros sur Excel 2007, et je vous avoue que quand ça ne marche pas je ne sais pas trop comment corriger mes erreurs.
J'ai un fichier avec plus de 4000 lignes, que je voudrais traiter.

Pour l'instant je m'entraine sur un petit fichier exemple, et ça ne marche pas
Je veux par exemple créer une macro qui me remplit la case A1 avec un chiffre quelconque (1 par exemple), et qui l'étend jusqu'à A10. Ensuite, je voudrais que la macro copie A1:A10 dans la colonne B. J'ai créé une macro qui reproduit ces actions, mais quand je la ré-éxécute, elle ne fonctionne même pas !
Voici le code que j'ai après avoir fait les actions à la main :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro4()
'
' Macro4 Macro
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault
    Range("A1:A10").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
End Sub

Quand je l'exécute, j'ai ".AutoFill" qui se surligne et le message "Erreur de compilation: Membre de méthode ou de données introuvable".

Pourquoi ça ne marche pas ?
Merci d'avance

[gFZT82]

Bonjour,

L’enregistreur de macro donne de bonnes indications pour rédiger un code mais il a la fâcheuse tendance à abuser de la méthode SELECT.
Voici ton code modifié et commenté

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro4()
'Je définis la feuille sur laquelle je souhaite appliquer mon code
With Worksheets("Feuil1")
    'j'affecte la valeur 1 à la cellule A1
    .Range("A1") = 1 ' le point avant Range indique que cette plage est associée à la feuille référencée Worksheets("Feuil1")
    'j'affecte la valeur 2 à la cellule A2
    .Range("A2") = 2
    'J'effectue une recopie incrémentée dans les cellules de la plage A1:A10.
    .Range("A1:A2").AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault
    'J'effectue une copie de la plage A1:A10 vers une plage débutant en B1
    .Range("A1:A10").Copy Destination:=.Range("B1")
End With
End Sub

L'intérêt avec cette méthode, c'est que tu indiques explicitement l'objet sur lequel tu effectues l'opération (objet feuille "Feuil1" dans ce cas).

Cordialement.

[Dadadidou]

Bonjour,

Merci beaucoup de ta réponse, ça marche très bien !
En utilisant Worksheets("feuil1"), cela veut dire que dans la même macro je peux jongler entre différentes feuilles d'un même classeur ? Ca serait pratique car je risque de devoir utiliser des données de feuil1 sur une feuil2

Maintenant que ça marche, j'essaie de faire une moyenne entre 2 cellules d'un tableau de données, toutes les 2 cellules (En clair, faire la moyenne entre A1 et A2, puis A3 et A4 ...etc.). Cela fonctionne avec la macro réalisée à la main, mais je vais essayer de reprendre ta syntaxe, c'est plus clair.

Je risque d'avoir d'autres questions à venir

Merci en tout cas !

[gFZT82]

Oui, tu as bien compris.

Si tu écris

Code :

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

Worksheets("Feuil1").Range("A1:A10").Copy Destination:=Worksheets("Feuil2").Range("B1")

tu vas effectuer la copie d'une plage de la feuille "Feuil1" dans la feuille "Feuil2"

Bon courage

Cordialement.

[Dadadidou]

Je te remercie, je vais essayer d'avancer comme un grand maintenant

Bon, j'ai réussi à faire ce que je voulais.
Maintenant, un autre souci se pose à moi. Voilà le contexte : J'ai un relevé de vent et de puissance pour 3 éoliennes sur un mois, avec un pas de 10'. Soit environ 4000 lignes. Et c'est c'est ces données que je veux trier.
Disons qu'elles sont sur feuil1, et qu'il y a 3 colonnes : Dans la colonne A, l'identifiant de l'éolienne (E1, E2, E3), dans B le vent, et dans C la puissance.

Ce que je voudrais, c'est trier pour une éolienne, sachant que le nombre de ligne par éolienne est variable. Donc sélectionner la plage de B et C en fonction de la "valeur" en A, puis copier les données sur feuil2 pour les traiter. C'est possible ça ?
Je voudrais en être sûr parce que mes recherches sont pas très fructueuses pour l'instant sur le sujet

[gFZT82]

C’est possible ? Faut voir !
Tu peux commencer avec l’enregistreur de macro.

Sélectionner la plage de la feuille 1
Filtrer
Sélectionnez la valeur correspondant à l’éolienne dans la liste des valeurs de texte
Copier la plage
Sélectionner la feuille 2
Collage spécial / Valeurs / Blancs non compris

Cordialement.