Macro Excel (question débutante)
Résolu/Fermé
A voir également:
- Macro Excel (question débutante)
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
6 déc. 2012 à 16:21
6 déc. 2012 à 16:21
Bonjour,
pour la colonneB, tu as la commande "format (=Texte sur Excel)
Bi'==format(cells(i,"D"),"mmmm")
et pour GI
If cells(i,"F")<>"" then
Cells(i, "I")/cells(i,"F")
Else
Cells(i,"F")=""
end if
et pour
pour la colonneB, tu as la commande "format (=Texte sur Excel)
Bi'==format(cells(i,"D"),"mmmm")
et pour GI
If cells(i,"F")<>"" then
Cells(i, "I")/cells(i,"F")
Else
Cells(i,"F")=""
end if
et pour
Merci Michel, voilà ce que j'ai inscrit :
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
If Not IsEmpty(Range("C" & i)) Then Range("A" & i) = "commande centrale"
If Not IsEmpty(Range("C" & i)) Then Range("B" & i) = Format(Cells(i, "D"), "mmmm")
If Not IsEmpty(Range("C" & i)) Then Range("G" & i) = Cells(i, "I") / Cells(i, "F")
If Not IsEmpty(Range("C" & i)) Then Range("H" & i) = 0
Next
Et ça fonctionne nickel ! Merci, ça m'a évité plusieurs heures de prise de tête !
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
If Not IsEmpty(Range("C" & i)) Then Range("A" & i) = "commande centrale"
If Not IsEmpty(Range("C" & i)) Then Range("B" & i) = Format(Cells(i, "D"), "mmmm")
If Not IsEmpty(Range("C" & i)) Then Range("G" & i) = Cells(i, "I") / Cells(i, "F")
If Not IsEmpty(Range("C" & i)) Then Range("H" & i) = 0
Next
Et ça fonctionne nickel ! Merci, ça m'a évité plusieurs heures de prise de tête !