[VBA] Erreur sur copie d'une cellule (feuille1) vers une cellule (feuille2)

  • Initiateur de la discussion Initiateur de la discussion Rookiz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Rookiz

XLDnaute Nouveau
Bonjour,

J'ai mis en place une macro qui fait un état des formations (certaines formations) effectués ou non pour chaque salarié depuis 2008.
Pour savoir qui a fait quel formation, je m'appuie sur 2 fichiers :
- le premier répertorie les formations (seulement celle dont j'ai besoin) effectués de 2008 à 2011. Fichier fixe, ne change jamais. Feuille "ListeStages" dans fichier.
- le second fichier répertorie les formations (toutes formations confondus) effectués en 2012. Fichier mis à jour régulièrement. Feuille "base" dans fichier.

Ma macro, vérifie sur chaque ligne occupé de la feuille "base" le libellé de la formation.
Si le libellé correspond, elle récupère "libellé", "Nom,Prénom" et "matricule" et les colles dans les colonnes "A", "B" et "C" de ma feuille "ListeStages", à la suite de celle déjà présente (mais en fixe).

Au début, je ne récupérais que "libellé" et "Nom,Prénom" et tout fonctionnait très bien.
Mais pour un soucis d'homonyme, il est préférable de récupérer le matricule pour la suite de ma macro (donc je n'ai pas donné de détail).

Voici mon code :
Code:
Sub CompilBaseStag()
Dim Ligne As Long
Dim LigneCopie As Long
Ligne = 2
LigneCopie = 5
While Sheets("base").Cells(Ligne, 4) <> ""
    Select Case Sheets("base").Cells(Ligne, 4)
        Case "Formation X"
            Sheets("ListeStages").Cells(LigneCopie, 1) = Sheets("base").Cells(Ligne, 4)
            Sheets("ListeStages").Cells(LigneCopie, 2) = Sheets("base").Cells(Ligne, 29)
            'Sheets("LigneStages").Cells(LigneCopie, 3) = Sheets("base").Cells(Ligne, 28)
            LigneCopie = LigneCopie + 1
        Case "Formation Y"
            Sheets("ListeStages").Cells(LigneCopie, 1) = Sheets("base").Cells(Ligne, 4)
            Sheets("ListeStages").Cells(LigneCopie, 2) = Sheets("base").Cells(Ligne, 29)
            'Sheets("LigneStages").Cells(LigneCopie, 3) = Sheets("base").Cells(Ligne, 28)
            LigneCopie = LigneCopie + 1
        Case "Formation Z"
            Sheets("ListeStages").Cells(LigneCopie, 1) = Sheets("base").Cells(Ligne, 4)
            Sheets("ListeStages").Cells(LigneCopie, 2) = Sheets("base").Cells(Ligne, 29)
            'Sheets("LigneStages").Cells(LigneCopie, 3) = Sheets("base").Cells(Ligne, 28)
            LigneCopie = LigneCopie + 1
    End Select
Ligne = Ligne + 1
Wend
End Sub

Quand j'active la 3eme ligne de chaque "Case", j'ai une erreur que je n'arrive pas a résoudre.
Je pense que le problème provient du format des cellules, mais je n'arrive pas à le résoudre malgré un grand nombre de test.
J'ai même essayer de changer mon code, de faire autrement, mais toujours une erreur.

Quelqu'un saurait m'apporter son aide, s'il vous plaît ?

Merci beaucoup du temps que vous prendrez pour me répondre.

Rookiz
 

Pièces jointes

Dernière édition:
Re : [VBA] Erreur sur copie d'une cellule (feuille1) vers une cellule (feuille2)

Ce code est une partie de ma macro.

La macro principal effectue les opérations suivantes :
- Récupérations de l'ensemble des employés (pas tous) par départements via une extraction de base de donnée fournie.
- Récupérations des deux bases stages (extraction également), compilation des deux, pour renseigner dans le tableaux les stages déjà effectué et ceux à faire en fonction du statue de l'employé.
- Mise en forme du tableau selon état du stage.

Etant donné les extractions de base, VBA me semble plus propice à ce genre de besoin.
 
Re : [VBA] Erreur sur copie d'une cellule (feuille1) vers une cellule (feuille2)

OH LA LAAAA ..... j'ai honte !!!!!!!!!!!!
J'ai regardé ces lignes des dizaines de fois sans voir cette erreur.

Vraiment désolé ... vraiment ... vraiment .... vraiment désolé.
Merci beaucoup ERIC pour tes bons yeux.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
406
Réponses
2
Affichages
512
Réponses
17
Affichages
2 K
Retour