Ecrire un texte spécifique en fonction d'une cellule
Anne
-
Maurice -
Maurice -
Bonjour,
J'aimerais utiliser une macro qui me permet d'écrire dans la colonne C un texte spécifique en fonction de ce que contient la colonne A ou B.
Je m'explique en exemple :
Si la colonne A contient "AAAA" écrire dans C "CCCC"
OU
Si la colonne A contient "aaaa" écrire dans C "cccc"
OU
si la colonne B contient "BBBB" écrire dans C "CCCCCCC"
OU
si la colonne B contient "bbbb" écrire dans C "cccccccccc"
OU
..... (plusieurs autres cas possibles)
OU
Si aucune des conditions existe ne rien écrire dans C
Par avance merci.
Anne.
J'aimerais utiliser une macro qui me permet d'écrire dans la colonne C un texte spécifique en fonction de ce que contient la colonne A ou B.
Je m'explique en exemple :
Si la colonne A contient "AAAA" écrire dans C "CCCC"
OU
Si la colonne A contient "aaaa" écrire dans C "cccc"
OU
si la colonne B contient "BBBB" écrire dans C "CCCCCCC"
OU
si la colonne B contient "bbbb" écrire dans C "cccccccccc"
OU
..... (plusieurs autres cas possibles)
OU
Si aucune des conditions existe ne rien écrire dans C
Par avance merci.
Anne.
2 réponses
-
Bonjour
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
