Erreur dans une appli

[popeye54]

🙄Bonjour à tous

Je ne connais pas grand chose en VBA. J'ai adapté un code trouvé sur ce forum à mon application.
Je me retrouve avec une erreur d’exécution ' 1004'.
Pouvez vous m'expliquer où elle se situe.

Merci

 

[gilbert_RGI]

Re : Erreur dans une appli

Bonjour

pour moi le .Range("Manif") ne se trouve pas dans la Sheets("Bilan") d'ou l'erreur


voilà le code modifié

Private Sub CommandButton2_Click()
Dim M As Long, Derlig As Integer, Plage, Col As Byte
' Mise en mémoire de la plage des valeurs
With Sheets("Presence")
.Range("A1").Select
M = .OLEObjects("ComboBox1").Object.Value
Plage = .Range("E6:E" & .Range("B65536").End(xlUp).Row)
End With
' Affichage dans la feuille finalite
Col = Application.Match(M, Sheets("Presence").Range("Manif"), 5)
Sheets("Bilan").Cells(6, 3 + Col).Resize(UBound(Plage)) = Plage
End Sub

😎

 

[popeye54]

Re : Erreur dans une appli

Merci à Gilbert_RGI.
Mon problème s'est déplacé dans le transfert des données d'une feuille sur l'autre.
Je change le fichier exemple.zip

 

[gilbert_RGI]

Re : Erreur dans une appli

et bien voilà

 

[popeye54]

Re : Erreur dans une appli

Re merci à gilbert_RGI.
Les soucis sont réglés au plus vite. Je suis content de m'être inscrit sur ce site, je ne connaissais pas grand chose en VBA et je m'aperçois que j'arrive à adapter des exemples à mes applications.
Je teste déjà la prochaine.

Site superbe pour progresser mais il ne faut pas se contenter d'attendre les réponses de personnes plus qualifiées