A voir également:
- Ecrire un texte spécifique en fonction d'une cellule
- Excel cellule couleur si condition texte - Guide
- Fonction si et - Guide
- Ecrire en gras sur whatsapp - Guide
- Mettre un texte en majuscule - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
2 réponses
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
Modifié par ccm81 le 17/07/2014 à 17:50
Modifié par ccm81 le 17/07/2014 à 17:50
Bonjour
Un exemple à compléter et à utiliser en colonne C
Cordialement
Un exemple à compléter et à utiliser en colonne C
Public Function Kalcul(s As String) As String
Select Case s
Case "AAAA": Kalcul = "CCCC"
Case "aaaa": Kalcul = "cccc"
Case "BBBB": Kalcul = "CCCCCC"
Case "bbbb": Kalcul = "cccccc"
Case Else: Kalcul = ""
End Select
End Function
Cordialement
Bonjour
voila une macro
a toi de voir si ca te va
Sub Test()
For L = 2 To 10
Select Case Range("A" & L).Value
Case "AAAA"
Range("C" & L).Value = "CCCC"
Case "aaaa"
Range("C" & L).Value = "cccc"
Case "BBBB"
Range("C" & L).Value = "CCCCCCC"
Case "bbbb"
Range("C" & L).Value = "cccccccccc"
Case Else
Range("C" & L).Value = ""
End Select
Next
End Sub
voila une macro
a toi de voir si ca te va
Sub Test()
For L = 2 To 10
Select Case Range("A" & L).Value
Case "AAAA"
Range("C" & L).Value = "CCCC"
Case "aaaa"
Range("C" & L).Value = "cccc"
Case "BBBB"
Range("C" & L).Value = "CCCCCCC"
Case "bbbb"
Range("C" & L).Value = "cccccccccc"
Case Else
Range("C" & L).Value = ""
End Select
Next
End Sub