C chilo XLDnaute Occasionnel 21 Juillet 2008 #1 bonsoir le forum pas d'heure pour les braves voila je souhaute éviter d'écrire une meme ligne petit exemple joint merci Pièces jointes eviter d'ecrire.zip 10.8 KB · Affichages: 42 eviter d'ecrire.zip 10.8 KB · Affichages: 36 eviter d'ecrire.zip 10.8 KB · Affichages: 38
bonsoir le forum pas d'heure pour les braves voila je souhaute éviter d'écrire une meme ligne petit exemple joint merci
J JHA XLDnaute Barbatruc 21 Juillet 2008 #2 Re : eviter d'ecrire Bonsoir Chilo, le forum, ci joint un exemple, JHA Pièces jointes eviter d'ecrire.xls 32 KB · Affichages: 56 Vote positif 0 Vote négatif
job75 XLDnaute Barbatruc 22 Juillet 2008 #3 Re : eviter d'ecrire Bonjour à tous, Content de vous retrouver chilo, ci-joint votre fichier. La recherche des lignes identiques se fait par 2 boucles For i0 et j0. A+ PS. Par rapport à l'ancien post, vous avez supprimé la feuille toto, il faut écrire ici : Code: Sheets(1).Move After:=Sheets([COLOR="Red"]2[/COLOR]) Pièces jointes eviter d'ecrire.zip 14 KB · Affichages: 20 eviter d'ecrire.zip 14 KB · Affichages: 24 eviter d'ecrire.zip 14 KB · Affichages: 21 Dernière édition: 22 Juillet 2008 Vote positif 0 Vote négatif
Re : eviter d'ecrire Bonjour à tous, Content de vous retrouver chilo, ci-joint votre fichier. La recherche des lignes identiques se fait par 2 boucles For i0 et j0. A+ PS. Par rapport à l'ancien post, vous avez supprimé la feuille toto, il faut écrire ici : Code: Sheets(1).Move After:=Sheets([COLOR="Red"]2[/COLOR])