Discussion :

[denkae75]

Bonjour Tout le monde,

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

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

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

A quoi cela peut être dû?

Ci-dessous le programme:

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
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.

[eric4459]

Bonjour,
Tu ecris

Code :

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

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

au lieu de

Code :

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

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

Eric

[unparia]

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 :

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

Sheets("Calendrie").ActiveSheet

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

[Menhir]

Petit conseil en passant pour ton test If :

Code :

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

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

Ou bien

Code :

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

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 :

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

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 :

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

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

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.

[unparia]

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

[clementmarcotte]

Bonjour,

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.

[denkae75]

Bonjour tout le monde,

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

Ci-dessous le résultat final :

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
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!