Z zine pef XLDnaute Occasionnel 9 Août 2009 #1 salut le forum je cherche un code en VBA pour remplacer la formule (=feuil1!E3) quand commandboutton_clik le résultat affiche dans la collone D feuil1 et affiche dans la collone E feuil2 aussi Pièces jointes KB.xls 46.5 KB · Affichages: 48
salut le forum je cherche un code en VBA pour remplacer la formule (=feuil1!E3) quand commandboutton_clik le résultat affiche dans la collone D feuil1 et affiche dans la collone E feuil2 aussi
soenda XLDnaute Accro 9 Août 2009 #2 Re : comment saisie dans la feuille2 Bonjour le fil, zine pef En VBA, la formule =feuil1!E3 peut s'écrire =Feuil1.[E3] Et pour le reste zine pef à dit: quand CommandBoutton_Clik le résultat affiche dans la collone D feuil1 et affiche dans la collone E feuil2 aussi Cliquez pour agrandir... Colonne "D" et "E" ok, mais quelle ligne ? A plus Vote positif 0 Vote négatif
Re : comment saisie dans la feuille2 Bonjour le fil, zine pef En VBA, la formule =feuil1!E3 peut s'écrire =Feuil1.[E3] Et pour le reste zine pef à dit: quand CommandBoutton_Clik le résultat affiche dans la collone D feuil1 et affiche dans la collone E feuil2 aussi Cliquez pour agrandir... Colonne "D" et "E" ok, mais quelle ligne ? A plus
Z zine pef XLDnaute Occasionnel 9 Août 2009 #3 Re : comment saisie dans la feuille2 MERCI soenda Colonne "D" et "E" ok, mais quelle ligne ? la saisie dans tout les ligne Vote positif 0 Vote négatif
Re : comment saisie dans la feuille2 MERCI soenda Colonne "D" et "E" ok, mais quelle ligne ? la saisie dans tout les ligne
soenda XLDnaute Accro 10 Août 2009 #4 Re : comment saisie dans la feuille2 Re, ... la saisie dans toutes les lignes Cliquez pour agrandir... Alors peut-être, dans CommandButton_clik : Code: With Feuil1 .[D3].Resize(.[D3].End(xlDown).Row - 2).Copy End With Feuil2.[E3].PasteSpecial xlPasteValues A plus Vote positif 0 Vote négatif
Re : comment saisie dans la feuille2 Re, ... la saisie dans toutes les lignes Cliquez pour agrandir... Alors peut-être, dans CommandButton_clik : Code: With Feuil1 .[D3].Resize(.[D3].End(xlDown).Row - 2).Copy End With Feuil2.[E3].PasteSpecial xlPasteValues A plus