Message d'erreur nombre d'arguments incorrect

Bonjour Tout le monde,

Je fais mes premiers pas en VBA en essayant de créer mes propres macro...un vrai casse tête :aie:

Quand je lance ma macro, le message suivant apparaît:

Citation:

---

Erreur de compilation : Nombre d'arguments incorrect ou affectation de propriété incorrecte.

---

A quoi cela peut être dû?

Ci-dessous le programme:

Code:

---

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

Sub Nettoyage_org()   Sheets("Calendrie").ActiveSheet   'On commence par supprimer les colonnes inutiles   Columns("F:J").Select Selection.Delete Shift:=xlToLeft     Columns("D: D").Select Selection.Delete Shift:=xlToLeft   Columns("B:B").Select Selection.Delete Shift:=xlToLeft     For i = 1 To 400 If (Cells(i, 2).Value = "FR") Or (Cells(i, 2).Value = "ES") Or (Cells(i, 2).Value = "DE") Or (Cells(i, 2).Value = "UK") Or (Cells(i, 2).Value = "IT") Or (Cells(i, 2).Value = "BE") Then Cells(i & "A", i & "B", i & "C").Select Selection.Copy Cells(i & "11").Paste   End If Next i   End Sub

---

Sauriez-vous me dire où j'ai fait l'erreur s.v.p. ?

Merci d'avance.

Bonjour,
Tu ecris

Code:

---

Cells(i & "A", i & "B", i & "C")

---

au lieu de

Code:

---

1 2	Range("A" & I & ":" & "C" & I).Copy Cells(I, 11).PasteSpecial

---

Eric

Bonjour
C'est du grand n'importe quoi qui met en évidence que tu te "jettes" dans le développement sans même cerner les rudiments.
En plus de la remarque justifiée de Eric459,

Code:

---

Sheets("Calendrie").ActiveSheet

---

n'a aucun sens. ActiveSheet est ici par défaut une propriété de l'application et non une méthode

Petit conseil en passant pour ton test If :

Code:

---

If InStr("FR-ES-DE-UK-IT-BE", Cells(i, 2).Value) > 0 Then

---

Ou bien

Code:

---

1 2	Select Case Cells(i, 2).Value Case "FR", "ES", "DE", "UK" ,"IT", "BE"

---

C'est plus simple et plus propre, non ? ;)

Et remplace tout ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sheets("Calendrie").ActiveSheet   'On commence par supprimer les colonnes inutiles   Columns("F:J").Select Selection.Delete Shift:=xlToLeft     Columns("D: D").Select Selection.Delete Shift:=xlToLeft   Columns("B:B").Select Selection.Delete Shift:=xlToLeft

---

Par :

Code:

---

1 2 3 4

Sheets("Calendrie").Activate Columns("F:J").Delete Shift:=xlToLeft Columns("D").Delete Shift:=xlToLeft Columns("B").Delete Shift:=xlToLeft

---

Citation:

---

Envoyé par unparia

C'est du grand n'importe quoi qui met en évidence que tu te "jettes" dans le développement sans même cerner les rudiments.

---

Du calme... Il faut encourager les efforts louables. ;)

Le premier effort, Menhir, est celui de lecture.
Le second est de ne pas écrire "au hasard", mais en vérifiant au moins le sens de ce que l'on écrit.
Amitiés

Bonjour,

Citation:

---

Du calme... Il faut encourager les efforts louables.

---

Et même encourager "l'abus" de UCase() ou de LCase() et la prudence dans l'utilisation des expressions logiques. Parce que les comparaisons de texte, les OR et les AND ne sont pas aussi tolérants que le cerveau humain avec les différences dans la casse ou les ambigüités dans les comparaisons. ;)

Bonjour tout le monde,

Problème résolu, ça fonctionne :D! Merci d'avoir fait preuve de patience Eric et Menhir!

Ci-dessous le résultat final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Nettoyage_org()   Sheets("Calendrier").Activate Columns("F:J").Delete Shift:=xlToLeft Columns("D").Delete Shift:=xlToLeft Columns("B").Delete Shift:=xlToLeft   For i = 1 To 50   If InStr("FR-ES-DE-UK-IT-BE", Cells(i, 2).Value) > 0 Then   Range("A" & i & ":" & "C" & i).Copy Cells(i, 11).PasteSpecial   End If Next i   End Sub

---

Bonne journée et merci encore!