A apamemkes XLDnaute Nouveau 6 Octobre 2014 #1 Bonjour le Forum J'ai un code qui fonctionne correctement quand il n'y a pas de formule. Peux-ton l'amélioré en copiant que la valeur de la cellule? Sheets("territoire").Cells(27, s).Copy Sheets("Donnée").Cells(5, m) Merci
Bonjour le Forum J'ai un code qui fonctionne correctement quand il n'y a pas de formule. Peux-ton l'amélioré en copiant que la valeur de la cellule? Sheets("territoire").Cells(27, s).Copy Sheets("Donnée").Cells(5, m) Merci
A apamemkes XLDnaute Nouveau 6 Octobre 2014 #2 Re : Amélioration de code Re bonjour, J'ai trouvé il faut faire un saut de ligne Sheets("territoire").Cells(32, s).Copy Sheets("Donnée").Cells(9, m).PasteSpecial Paste:=xlPasteValues merci Vote positif 0 Vote négatif
Re : Amélioration de code Re bonjour, J'ai trouvé il faut faire un saut de ligne Sheets("territoire").Cells(32, s).Copy Sheets("Donnée").Cells(9, m).PasteSpecial Paste:=xlPasteValues merci
phlaurent55 Nous a quittés en 2020 Repose en paix 6 Octobre 2014 #3 Re : Amélioration de code Bonjour, essaie ceci: Sheets("Donnée").Cells(5, m)=Sheets("territoire").Cells(27, s).Value à+ Philippe Vote positif 0 Vote négatif
Re : Amélioration de code Bonjour, essaie ceci: Sheets("Donnée").Cells(5, m)=Sheets("territoire").Cells(27, s).Value à+ Philippe
A apamemkes XLDnaute Nouveau 6 Octobre 2014 #4 Re : Amélioration de code phlaurent55 à dit: Bonjour, essaie ceci: Sheets("Donnée").Cells(5, m)=Sheets("territoire").Cells(27, s).Value à+ Philippe Cliquez pour agrandir... bonjour Sa fonction aussi Merci Vote positif 0 Vote négatif
Re : Amélioration de code phlaurent55 à dit: Bonjour, essaie ceci: Sheets("Donnée").Cells(5, m)=Sheets("territoire").Cells(27, s).Value à+ Philippe Cliquez pour agrandir... bonjour Sa fonction aussi Merci