Contenu récent par Zerife

Bonjour, Pour ma connaissance perso, pourriez-vous m'éclairer sur la signification du 5 et du 9 dans le code : Sub Concatene_EVImport() 'sert à concatenner les champs rose de la colonne AZ à BC de tous les onglets nominatifs afin d'obtenir une liste à importer Worksheets.Add...

Bonjour xUpsilon, Je tiens à vous remercier pour votre aide, ça marche du tonnerre !!!!! trop top. Merci beaucoup, Belle journée à vous,

re, Malheureusement ça bloque sur la ligne : Worksheets("ImportDV").Range("A" & DerLig + 1).Select message "erreur définie par l'application ou par l'objet".

Bonjur xUpsilon. la macro la créée : Sheets.Add.Name = "ImportDV" et ensuite va copier coller dans l'onglet ImportDV les valeurs de AZ9:BC de chq onglet personne.

l'erreur persiste ....

Merci pour ton retour, message erreur : Indice n’apparaît pas pour la sélection en ligne derLig = Worksheets("EVImport").Range("A1").End(xlDown).Row

depuis affichage / macro / afficher les macro

tout doit aller se mettre dans l'onglet "ImportDV" (lui même créé par la macro) en colonne A1:D

Ci joint le fichier avec les onglets personnes

faut lancer avant cela les macro ajouter_feuille_horaire et la macro ajouter_feuille_jour sorry j'ai zapé de vous envoyer le fichier avec tous les onglets personnes

Le but est que la macro est de copier coller les valeurs des colonnes AZ9 à BC de l'onglet n°1, et dès qu'elle ne trouve plus de valeur passe à l'onglet suivant pour copier coller valeur des colonnes AZ9 à BC etc ...en mettant à la suite les données collées dans une nouvelle feuille "ImportDV"...

rngTrouve = Nothing

Bonjour, J'ai un blocage sur une macro, et je ne comprends pas pourquoi ça bloque. J'ai besoin d'aide. La macro bloque sur la ligne : DerLignesh = rngTrouve.Row erreur d’exécution 91 "variable de bloc With non définie"...