Contenu récent par spier

bonjour, j'ai trouvé une solution qui ne fait pas de copies parasites. voici le code: Sub COPIE_AM() Sheets("APPEL MEDICAL").Select Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).EntireRow.Select Selection.Copy...

Bonjour, Je te remercie pour ton aide mais je n'ai pas trouvé de solution avec Ubound. J'ai finalement opté pour me contenter d'avoir les infos sur la première ligne et utilisé entirerow pour me sortir du décalage. Mais je rencontre un autre problème. With Sheets("APPEL MEDICAL") Set tbl =...

Bonsoir, j'ai effectivement déjà essayé d'ajouter .Range("O1") = "APPEL MEDICAL" mais ça me copie que sur la première ligne et pas sur toutes les lignes copiées. En tout cas merci pour l'essai.

voici mon fichier. j'appelle ma copie par le bouton "copier"(qui sera par la suite sur chacun des onglets), les lignes copiées incrémentent la feuille "copie". je te remercie.

Bonjour, j'ai un code de copie qui fonctionne très bien, mais je voudrais ajouter le nom de la feuille d'origine dans la colonne o sur ma feuille "copie". Sub COPIE_LES_LIGNES() With Sheets("APPEL MEDICAL") Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _...