Macro excel
Fermé
Lumi
-
22 sept. 2010 à 11:50
cousinhub29 Messages postés 643 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 24 mars 2023 - 12 oct. 2010 à 14:36
cousinhub29 Messages postés 643 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 24 mars 2023 - 12 oct. 2010 à 14:36
A voir également:
- Macro excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
2 réponses
Bonjour,
sub résultatformule ()
a = Sheets("Feuil1").cells(1,2) ' remplaces Feuil1 par ton nom de feuille
'cells(1,2) = cellule située à la première ligne, 2e colonne remplaces les chiffres s'ils ne sont pas bons.
i=2
do while Sheets("Feuil2").cells(i,1) <> ""
i=i+1
loop
Sheets("Feuil2").cells(i,1) = a
end sub
sub résultatformule ()
a = Sheets("Feuil1").cells(1,2) ' remplaces Feuil1 par ton nom de feuille
'cells(1,2) = cellule située à la première ligne, 2e colonne remplaces les chiffres s'ils ne sont pas bons.
i=2
do while Sheets("Feuil2").cells(i,1) <> ""
i=i+1
loop
Sheets("Feuil2").cells(i,1) = a
end sub
cousinhub29
Messages postés
643
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
24 mars 2023
325
12 oct. 2010 à 14:36
12 oct. 2010 à 14:36
Bonjour,
Une autre variante....
Mef aux petits points, devant les .Range.....
Bonne soirée
Une autre variante....
Sub lumi()
Dim Plg As Range
With Sheets("Feuil1")
Set Plg = Union(.Range("C5:C65"), .Range("H52:H124"))
End With
Sheets("Feuil2").Range("A65000").End(xlUp)(2) = Application.Sum(Plg)
End Sub
Mef aux petits points, devant les .Range.....
Bonne soirée