Discussion :

[master1551]

Bonjour, pour mon boulot je me suis fait une petite macro qui me permet de trier certaines données , de mettre en forme etc

La base qui contient les données est un fichier Txt.

J'arrive à l'importer, trier quelques lignes mais j'ai un soucis.

dans la colonne B j'ai des cellules qui ont des valeurs du genre "e cadre 100"

Je voudrais supprimer juste "e cadre" et laisser "100"
J'y arrive pour une cellule mais je n'arrive pas a faire une boucle pour que toutes les cellules de la colonne B contenant cette valeur.

Avez vous une idée pour m'aiguiller car la je galère pas mal...??
Merci

[MarcelG]

Bonjour à toi, Bonjour au Forum,

Bienvenu!

Tu n'as pas à boucler sur tes cellules (personnellement, j'évite tant que possible) pour effectuer ton remplacement.

Pour ce faire, tu peux appliquer directement la méthode Replace à ton champ de cellules.

Exemple à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:A50").Replace What:="e cadre", Replacement:="", LookAt:=xlPart

Bonne journée.

[ZebreLoup]

Si tu dis que tu y arrives pour une cellule, dis-nous comment tu fais qu'on puisse t'aider à l'adapter pour toutes les cellules.
Et il faudrait aussi plus de détail sur ce que peuvent contenir les cellules : c'est toujours le même texte avec le nombre qui change ? Du texte avec un nombre à la fin ? ... Le traitement sera très différent selon les cas. Il faut toujours se demander : "Si je devais le faire manuellement, je ferais comment", ensuite le VBA ne sert qu'à automatiser tout ça.

[master1551]

Alors merci pour vos réponses....
J'ai testé la méthode de MarcelG, ca marche impec....

Merci

[master1551]

Je vous embete une fois de plus mais j'ai besoin d'un autre renseignement...


Toujours avec mon fichier, mais concernant la mise en forme

comment selectionner une plage cellule dans la colonne A, qui va de la cellule contenant un texte jusqu'a la prochaine ligne vide ??

Je joins un fichier exemple.

Exemple je voudrais selectionner la plage de cellule qui part de "horaires de dégivrages :" jusqu'à "Temps de sécurité (durée maximale du dégivrage)" inclus, puis les mettres en formes

[ZebreLoup]

En général, on utilisant la méthode End de l'objet Range (je t'invite à lire la documentation à ce sujet). Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim rg As Range
Set rg = Range(Range("A1"), Range("A1").End(XlDown))

[master1551]

oui mais je veux pas la derniere ligne vide du tableau

Je veux la prochaine ligne apres la valeur "Horaires de dégivrage :"