Remplacer chiffres par texte Le sujet est résolu

Forum pour toutes vos questions à propos d'Excel (avec ou sans macros) ...
Avatar du membre
dhany
Membre impliqué
Membre impliqué
Messages : 2074
Appréciations reçues : 208
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 13 février 2018, 13:15

Bonjour Nicolas29,

Je te retourne ton fichier Excel modifié :
Tableau Laure.xlsm
(31.59 Kio) Téléchargé 1 fois
Je te laisse le tester ; merci de me donner ton avis.

Cordialement,
dhany
Nicolas29
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 23 juin 2017
Version d'Excel : 2007

Message par Nicolas29 » 13 février 2018, 14:01

Ca ne fonctionne pas quand je la lance avec l'intégralité de la macro ..
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 6718
Appréciations reçues : 99
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 13 février 2018, 14:18

re-bonjour,

essaie ceci

Code : Tout sélectionner

With ThisWorkbook.Sheets(1)
    lig = 3
    While Not IsEmpty(.Cells(lig, 1))
        lig = lig + 1
    Wend
    lig = lig - 1
    For i = 3 To lig
        If .Cells(i, 18).Value = "" Then
            .Cells(i, 18).Value = "Étude"
        ElseIf .Cells(i, 18).Value = 1 Then
            .Cells(i, 18).Value = "Commande"
        Else
            .Cells(i, 18).Value = "Annulé"
        End If
    Next i
End With

Nicolas29
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 23 juin 2017
Version d'Excel : 2007

Message par Nicolas29 » 13 février 2018, 15:05

Ca fonctionne parfaitement désormais merci !!
Quel est le changement que vous avez fait ?
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 6718
Appréciations reçues : 99
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 13 février 2018, 15:22

bonjour,

j'ai indiqué sur quelle feuille se trouvaient les cellules en question.

Code : Tout sélectionner

with 
.cells()
end with
1 membre du forum aime ce message.
Nicolas29
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 23 juin 2017
Version d'Excel : 2007

Message par Nicolas29 » 13 février 2018, 16:25

Malin, merci beaucoup pour l'aide et le temps passer. :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message