comparaison de texte en VBA Fermé

Question

bonjour,

ma question est la suivante:
ligne 2 : dans ma cellule "aj2" j'ai des textes ex : safety ou no safety
ligne 2 : dans ma cellule "ak2" j'ai des code ex:01 , 02 , ou 03 etc...

je desirerais que dans la colonne AK ces codes changent
par exemple "01" devient "toto"  ou "02" devient "tata"

en sachant qui doit être relatif avec les textes colones AJ
EXEMPLE : si je trouve "safety" en AJ2 et qu'il y ait "01" en AK2 alors j'insère "cool"
                   ''                    ''                    et qu'il y ait "02 en ak2 alors j'insère "cool1"
etc...
mais si je trouve "not safety en aj2 et qu'il y ait "01 en ak2 alors j'insére "pas cool"
''                                  ''                    et qu'il y ait "02 en ak2 alors j'insère "pas cool1"

etc... 
je ne trouve pas l'argumentation sous en VBA 

merci de votre retour

via55 · Answer

Bonjour

Sub modif()
For x = 2 to 50  'pour examiner les lignes 2 à 50, à adapter
If range("AJ" & x)="safety" then
If  range("AK" & x)="01" then range("AK" & x)="cool" 
if range("AK" & x)="02" then range("AK" & x)="cool1"
end if
If range("AJ" & x)="no safety" then
If  range("AK" & x)="01" then range("AK" & x)="pas cool" 
if range("AK" & x)="02" then range("AK" & x)="pas cool1"
end if
next x
end sub

via55 · Answer

Bonjour

Pour effacer depuis une certaine ligne jusqu'à l'avant-dernière :

Sub effacer()
dep = 7'ligne de départ à modifier selon le fichier
Dim DLig As Long
DLig = Range("A" & dep).End(xlDown).Row ' n° de la derniere ligne remplie
Rows(dep & ":" & DLig - 1).Delete
End Sub

 
Cdlmnt

Comparaison de texte en VBA

2 réponses

Discussions similaires