Problème de synthaxe VBA

[Rafilo13]

Bonjour,

Je suis nouveau sur le forum et aussi en VBA et j'ai un petit problème dans la rédaction de mon code.

Voici le code que j'ai ecris :

Sub Cherche()

Sheets("Photo").Select
Application.ScreenUpdating = False
'Filtrage sur client sélectionné
Sheets("Clients").Select
Selection.AutoFilter Field:=14, Criteria1:=Sheets("Acceuil").Range("C4")

'Supression des données eventuelles
Sheets("Acceuil").Select
Range("C17").Select
Selection.CurrentRegion.Select
Selection.Clear

'Coller données précédentes
Sheets("Clients").Select
Range("AW3").Select
Selection.CurrentRegion.Select
Selection.Copy

'...

End Sub


Arriver a l'étape " ' Coller données précèdentes" on me signale une erreur 400, si j'ai bien compris parceque je nomme un feuille deja ouverte 😕

Mais je ne vois pas comment y remédier, car si je ne nomme pas la feuille la selection se fait sur la feuille "Acceuil" et non le feuille "Clients" ...

Merci de par avance pour vos lumières

Bonne journée a tous.

 

[Efgé]

Re : Problème de synthaxe VBA

Bonjour Rafilo13,
Avec juste un bout de code pas facile de voir...
Essai comme ça:

'Coller données précédentes
Sheets("Clients").Activate
Sheets("Clients").Range("AW3").Select

Mais tu parles de "Coller les données" et tu utilise "Selection.Copy" ??

Cordialement

 

[JNP]

Re : Problème de synthaxe VBA

Bonjour Rafilo13 🙂,
Logiquement, ce serait plutôt ça

Application.ScreenUpdating = False
'Filtrage sur client sélectionné
Sheets("Clients").AutoFilter Field:=14, Criteria1:=Sheets("Acceuil").Range("C4")
'Supression des données eventuelles
Sheets("Acceuil").Range("C17").CurrentRegion.Clear
'Coller données précédentes
Sheets("Clients").Range("AW3").CurrentRegion.Copy Sheets("Acceuil").Range("C17")

Par contre, avec ton filtre, AW3 n'est pas masquée 🙄 ?
Bon courage 😎

 

[Grand Chaman Excel]

Re : Problème de synthaxe VBA

Bonjour Rafilo,

Mes pouvoirs de devin sont en panne ce matin... Tu pourrais pas ajouter un fichier exemple pour m'aider un peu plus...

Merci.

 

[Rafilo13]

Re : Problème de synthaxe VBA

Bonjour Efgé,

Non je me suis trompé dans ma légende c'est bien copier. Merci je viens d'inserrer le bout de code et ça marche très bien.

Merci beaucoup et bonne journée

 

[Rafilo13]

Re : Problème de synthaxe VBA

Merci JNP je viens de voir ta réponse, je vais utiliser ta synthaxe bien plus courte lol ... Merci a tous

 

[Robert]

Re : Problème de synthaxe VBA

Bonjour Rafilo, bonjour le forum,

Je t'avoue que je ne comprends pas pourquoi tu as cette erreur 400.
L'aide VBA explique :

Vous ne pouvez pas utiliser la méthode Show pour afficher une feuille en tant que feuille modale si elle est déjà visible. La cause de cette erreur et la solution pour la corriger sont les suivantes :

• Vous avez essayé d'appliquer à une feuille déjà visible la méthode Show avec l'argument style égal à 1 (vbModal). Utilisez l'instruction Unload ou la méthode Hide sur la feuille avant d'essayer de l'afficher en tant que feuille modale.

Mais dans ton cas il s'agit d'onglet et pas d'UserForm...

Je te recommande d'éviter tout ce qui est Select car ça ralentit considérablement l'exécution du code. Ci-dessous ton code modifié. Plus d'erreur 400 et beaucoup plus rapide pour le même résultat :

Sub Cherche()
Application.ScreenUpdating = False
 
'Filtrage sur client sélectionné
Sheets("Clients").Range("A1").AutoFilter Field:=14, Criteria1:=Sheets("Acceuil").Range("C4")
 
'Supression des données eventuelles
Sheets("Acceuil").Range("C17").CurrentRegion.Clear
 
'Coller données précédentes
Sheets("Clients").Range("AW3").CurrentRegion.Copy
'...
 
Application.ScreenUpdating = True
End Sub

Sinon il me semble que Accueil conviendrait mieux que Acceuil...

 

[Rafilo13]

Re : Problème de synthaxe VBA

Bonjour Robert,

Je ne suis pas encore habitué a tout le vocabulaire Vba, mais il est vrai que suivant mes tentatives j'ai eu des erreurs 400 ou 1004, mais impossible pour moi de comprendre la différence.

Pour les "select" je les utilisent parceque je n'arrive pas encore a enchainer directement les etapes mais j'èspère y arriver rapidement 🙂
Donc pour l'instant ma synthaxe est l'aborieuse lol

Merci pour ces remarques et bonne journée