Recherche et effacer les cellules contenant un un texte particulier

[Sobas]

Bonjours a tous, après maintes essais, je suis à la recherche d'une ligne de commande VBA qui me permette de faire la chose suivante:

Effacer le contenus des cellules contenant le texte: #VALEUR!
dans la feuil5 colonne B

Je vous remercie d'avance.

 

[roro69]

Re : Recherche et effacer les cellules contenant un un texte particulier

bonjour peut etre avec ce petit code

Sub effacev()

Dim l As Long
For l = Cells(65356, 2).End(xlUp).Row To 1 Step -1
If Left(Cells(l, 1).Text, 1) = "#" Then Cells(l, 1).ClearContents
Next l
End Sub

A++

 

[Tatiana29]

Re : Recherche et effacer les cellules contenant un un texte particulier

Ya de l'idée mais c'est faux mon cher roro69.
Sobas parle de la colonne B alors que ton code traite la colonne A!

Voici un autre code!
Sub effacev()

Dim l As Long
For l = Cells(65356, 2).End(xlUp).Row To 1 Step -1
If Left(Cells(l, 2).Text, 2) = "#" Then Cells(l, 2).ClearContents
Next l
End Sub

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

Désolé mais sa ne marche pas. Juste au cas où, c'est dans la feuil5.

 

[Tatiana29]

Re : Recherche et effacer les cellules contenant un un texte particulier

Tu dois adapter le code,cela te fera un bon excercice!

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

ok, mais dans se ca slà je comprend pas cette ligne:
Cells(65356, 2).End(xlUp).Row To 1 Step -1
POURQUOI PARLER DE CELULE et non de colonne et que ve dire (xlUp) et pourquoi To 1 Step -1?

 

[roro69]

Re : Recherche et effacer les cellules contenant un un texte particulier

Bonjour
Merci pour la rectif tatiana
Sobas est ce que c'est des cellules en erreur???
A ++

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

Re,
oui il s'agit bien de cellules en erreur mais, il n'y à aucune référence de la feuil5, et il y a plusieurs caractère que je ne comprend pas. Je suis vraiment désolé mais je suis débutant, en tout cas je tente de modifier la macro mais sans réel suces.

Merci.

 

[roro69]

Re : Recherche et effacer les cellules contenant un un texte particulier

Bonjour peut ut mettre ta feuille en exemple
A++

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

voici l'exemple, j'ai enlevé le contenus des 4 première feuille pour alléger le fichier

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

Si non pour TATIANA29, j'ai fait ça mais sa ne marche pas:

Sub effacev()

Dim l As Long
For l = Cells("B1").End(xlUp).Row To 1 Step -1
If Left(Cells(l, 2).Text, 2) = "#VALEUR!" Then Cells(l, 2).ClearContents
Next l
End Sub

 

[roro69]

Re : Recherche et effacer les cellules contenant un un texte particulier

RE
Voici un classeur avec ce que tu demande adaptes a ton cas
A++

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

Merci je regarde ça desuite

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

Nickel sa à fonctionné, mais par contre j'aimerais bien avoir certaines explication concernant les commandes.
Je comprend que:
For l = Cells(65356, 2) Donne la localisation des cellules cibles, mais pourquoi ne pas écrire: Cells(1, 2)
.End(xlUp).Row To 1 Step -1 Que .End dit jusqu'à la fin mais que veux dire (xlUp).Row To 1 step -1.

Voilà, en tout cas merci pour votre aide, et votre manière de faire, qui ma beaucoup appris.

 

[Sobas]

Re : Recherche et effacer les cellules contenant un un texte particulier

EU par contre pour donner comme cible la feuil5 j'écris ça:
Sub effacev()

Dim l As Long
For l = Sheets("Feuil5").Cells(65356, 2).End(xlUp).Row To 1 Step -1
If Sheets("Feuil5").Cells(l, 2).Text = "#VALEUR!" Then Sheets("Feuil5").Cells(l, 2).ClearContents
Next l
End Sub

Mais sa ne marche pas!!