Comparaison de texte en VBA
Fermé
gitan1960
Messages postés
1
Date d'inscription
vendredi 24 octobre 2014
Statut
Membre
Dernière intervention
24 octobre 2014
-
24 oct. 2014 à 14:34
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 - 30 oct. 2014 à 14:01
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 - 30 oct. 2014 à 14:01
A voir également:
- Comparaison de texte en VBA
- Mettre un texte en majuscule - Guide
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Vba convertir texte en nombre ✓ - Forum VB / VBA
- Texte annonce hôtesse de l'air décollage ✓ - Forum Réseaux sociaux
2 réponses
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
24 oct. 2014 à 18:46
24 oct. 2014 à 18:46
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
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
30 oct. 2014 à 14:01
30 oct. 2014 à 14:01
Bonjour
Pour effacer depuis une certaine ligne jusqu'à l'avant-dernière :
Cdlmnt
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
27 oct. 2014 à 08:00
merci de votre réponse et surtout de votre réactivité...
est-ce qu'il y aurait la possibilité d'adapter cette argumention for ... next en DO .... LOOP
car je connaitrais pas les n° de lignes a tester ce fichier sera extrait d'un outil et le nombre de ligne sera aléatoire.
merci encore
27 oct. 2014 à 14:02
Pour boucler jusqu'à la dernière ligne remplie en colonne AJ , remplacer la ligne For par celles ci
DLig As Long
DLig = Range("AJ1").End(xlDown).Row ' n° de la derniere ligne remplie
For x = 1 to Dlig
Cdlmnt
27 oct. 2014 à 15:06
c'est super :) :) ca marche tres bien
bonne continuation dans vos projets !!!
30 oct. 2014 à 09:47
sur mon fichier excel en colonne 7 j'ai plusieur itérations de ligne avec des valeurs
par exemple ligne 7 de la colonne 7 j'ai la valeur 1.2
ligne 8 toujours colonne 7 j'ai la valeur 3.16 etc ... etc ...
mon but est de garder qua la dernière valeur qui est toujours la plus haute
ex . congrès
col 7
lig7 1.2
lig8 3.16
lig9 5.6
lig10 9.3
je ne voudrais garder que la ligne 10 avec la valeur 9.3 et supprime les autres
merci beaucoup de votre retour