Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Remplacer les

Remplacer les

6 réponses
Avatar
bruno.vassal
Peut dans une plage donnée remplacer non pas les cellules égale à "TexteKO"
par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jps
bonjour bruo
en VBA, un truc dans ce genre à adapter à ta plage :

Sub test()
For Each cell In Range("A1:A5")
If cell.Value <> "TexteOK" Then cell.Value = "NewTexte"
Next cell
End Sub

HTH
jps

"bruno.vassal" a écrit dans le message de
news:
Peut dans une plage donnée remplacer non pas les cellules égale à
"TexteKO"

par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...




Avatar
anomymousA
bonjour,

le principe est le même entre = ou <>. Ce sont deux opérateurs logiques
et/ou arithmétiques.tu peux donc écrire dans une cellule p.e dans la cellule
B2 la formule =SI(A2<>"TexteOK";"Newtexte","Autre texte ou rien") et ensuite
coller par collage spécial la valeur dans A2 si tu veux écraser A2
Il n'est pas nécessaire d'utiliser VBA pour cela.

si tu tiens à VBA, il te faudra faire une boucle sur les cellules de la
plage que tu veux examiner, p.e la plage allant de A1 à A10

for each c in range("A1:A10")
if c.value="TexteOK" then c.value="NEwtexte"
next

Bon courage.


Peut dans une plage donnée remplacer non pas les cellules égale à "TexteKO"
par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...





Avatar
RaMa
Bonjour JPS

Je sais bien que la nature à horreur du vide
mais quand même....JPS
Salutations
RaMa

"jps" a écrit dans le message de
news:
bonjour bruo
en VBA, un truc dans ce genre à adapter à ta plage :

Sub test()
For Each cell In Range("A1:A5")
If cell.Value <> "TexteOK" Then cell.Value = "NewTexte"
Next cell
End Sub

HTH
jps

"bruno.vassal" a écrit dans le message de
news:
Peut dans une plage donnée remplacer non pas les cellules égale à
"TexteKO"

par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...







Avatar
jps
je ne te suis pas là, raoul...
je dois perdre mon self con troll sur ce coup...
jps

"RaMa" a écrit dans le message de
news:
Bonjour JPS

Je sais bien que la nature à horreur du vide
mais quand même....JPS
Salutations
RaMa

"jps" a écrit dans le message de
news:
bonjour bruo
en VBA, un truc dans ce genre à adapter à ta plage :

Sub test()
For Each cell In Range("A1:A5")
If cell.Value <> "TexteOK" Then cell.Value = "NewTexte"
Next cell
End Sub

HTH
jps

"bruno.vassal" a écrit dans le message de
news:
Peut dans une plage donnée remplacer non pas les cellules égale à
"TexteKO"

par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...











Avatar
RaMa
j'aurais AMHA proposé à bruno
If cell.Value <> "TexteOK" And Not IsEmpty(cell) Then cell.Value =
"NewTexte"
Bon c'est vrai que d'habitude quand c'est vide je remplis..;o)))
RaMa

"jps" a écrit dans le message de
news: %
je ne te suis pas là, raoul...
je dois perdre mon self con troll sur ce coup...
jps

"RaMa" a écrit dans le message de
news:
Bonjour JPS

Je sais bien que la nature à horreur du vide
mais quand même....JPS
Salutations
RaMa

"jps" a écrit dans le message de
news:
bonjour bruo
en VBA, un truc dans ce genre à adapter à ta plage :

Sub test()
For Each cell In Range("A1:A5")
If cell.Value <> "TexteOK" Then cell.Value = "NewTexte"
Next cell
End Sub

HTH
jps

"bruno.vassal" a écrit dans le message de
news:
Peut dans une plage donnée remplacer non pas les cellules égale à
"TexteKO"

par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...














Avatar
jps
ach merdum de merdum
je n'avais pas envisagé un seul instant qu'il y ait pu avoir des cellules
vides....
une chose est sûre : dans mon cerveau, j'en ai plus d'une...
jps

"RaMa" a écrit dans le message de
news:%
j'aurais AMHA proposé à bruno
If cell.Value <> "TexteOK" And Not IsEmpty(cell) Then cell.Value > "NewTexte"
Bon c'est vrai que d'habitude quand c'est vide je remplis..;o)))
RaMa

"jps" a écrit dans le message de
news: %
je ne te suis pas là, raoul...
je dois perdre mon self con troll sur ce coup...
jps

"RaMa" a écrit dans le message de
news:
Bonjour JPS

Je sais bien que la nature à horreur du vide
mais quand même....JPS
Salutations
RaMa

"jps" a écrit dans le message
de



news:
bonjour bruo
en VBA, un truc dans ce genre à adapter à ta plage :

Sub test()
For Each cell In Range("A1:A5")
If cell.Value <> "TexteOK" Then cell.Value = "NewTexte"
Next cell
End Sub

HTH
jps

"bruno.vassal" a écrit dans le message de
news:
Peut dans une plage donnée remplacer non pas les cellules égale à
"TexteKO"

par "NewTexte" mais celle différentes a "TexteOK" par "NewTexte"

Merci a ceux qui savent et qui partagent...