Discussion :

[adg91]

Bonjour,


J'ai trouvé sur developpez.net une fonction qui fait "presque" ce que je cherche mais cela ne fonctionne pas. Je débute en VBA et je ne connais pas l'erreur de cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim libelle As Range
Dim cel As Range
Dim Lgn As Long
 
 With ActiveSheet
 
        Set libelle = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each cel In libelle
 
        If cel.Value = "=*REMCB*" Then cel.Offset(, 2).Value = "5113000"
 
    Next cel

Si je change la valeur cel.Value par "" par exemple, cela fonctionne très bien, je pense donc que cel.Value ne peut pas être du texte mais dans ce cas, que dois-je indiquer ?

Merci d'avance de votre aide.

adg91

[unparia]

Bonjour
Que veux tu exprimer très précisément par

If cel.Value = "=*REMCB*" Then cel.Offset(, 2).Value = "5113000"

qu'est très exactement le caractère * dans ce code ?
Une correction ne pourra être valablement suggérée sans ces précisions importantes.

[adg91]

Je souhaite que dès lors que la cellule contient "REMCB", il y a une écriture deux colonnes à droite d'une valeur.
J'ai repris cette manière d'écrire "contient" dans les filtres, ce n'est peut-être pas cela qu'il faut indiquer.

[unparia]

dès lors que la cellule contient "REMCB"

Que la valeur de la cellule "contienne" cette chaîne ou soit cette chaîne ?
Ce n'est pas la même chose du tout.

[adg91]

Contienne, pour le soit, cela fonctionne car si la chaîne est égale à la valeur recherchée, cela exécute la macro et fait le travail.

La difficulté est bien là, je souhaite rechercher une valeur qui est une chaîne de texte à l'intérieur d'une cellule et si cette valeur est bien dans cette chaîne de texte, indiquer un contenu de cellule ailleurs, exemple :

A1 contient "12345885REMCB5554400, j'ai ma valeur cherchée "REMCB", donc la macro doit écrire "VRAI" en C1

Si A1 avait contenu uniquement REMCB, la macro fonctionne avec = "REMCB"

J'ai tenté cel.Formula mais sans succès.

Merci de votre intérêt

[Patrice740]

Bonjour,

je souhaite rechercher une valeur qui est une chaîne de texte à l'intérieur d'une cellule et si cette valeur est bien dans cette chaîne de texte, indiquer un contenu de cellule ailleurs, exemple : A1
contient "12345885REMCB5554400, j'ai ma valeur cherchée "REMCB", donc la macro doit écrire "VRAI" en C1

En français :
je souhaite vérifier qu'un texte se trouve dans une autre texte situé à l'intérieur d'une des cellules d'une colonne et si c'est le cas, écrire quelque chose dans une autre cellule de la même ligne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Test()
Dim libelle As Range
Dim cel As Range
  With ActiveSheet
    Set libelle = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
  End With
  For Each cel In libelle
    If cel.Value Like "*REMCB*" Then cel.Offset(, 2).Value = "5113000"
  Next cel
End Sub

[unparia]

Bonjour Patrice
ou même (moins "cher") :

Code :

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

If instr(cel.Value,"REMCB") > 0 Then .....

Amitiés