Discussion :

[fmris]

bonjour
j'ai un ptit soucis
je voudrais inscrire pour une boucle if la condition suivante :
si le texte "R-C" est contenu dans le texte de la cellule A3 alors...je ne connais plus la fonction permettant de le faire
merci d'avance
le code final devrait ressembler à ça

Code :

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

If Cells(3,1) = "R-C" Then

[casefayere]

Bonjour
Pour R-C uniquement, ok

Code :

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

If Cells(3,1) = "R-C" Then

pour R-C dans le texte

Code :

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

If Cells(3,1) = "*R-C*" Then

ou sans différenciation des majuscules/minuscules
en début de module

Code :

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

option compare text

Code :

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

If Cells(3,1) like "*R-C*" Then

pour un R et un C, n'mporte ou

Code :

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

option compare text

Code :

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

If Cells(3,1) like "*R*C*" Then

Bonne journée

[fmris]

ca marche pas
ci joint le code utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub a()
 
Dim g
 
For g = 3 To 100
    If Cells(g, 7) = "*R-C*" Then
        Cells(g, 7).Select
        Selection.Copy
        Cells(g, 13).Select.Select
        ActiveSheet.Paste
 
    End If
Next

[Philippe Tulliez]

Bonjour,
Deux erreurs dans ton code, si tu relis la réponse de Casefayere.
C'est soit

Code :

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

If Cells(g, 7) Like "*R-C*" Then

Soit

Code :

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

If Cells(g, 7) = "R-C" Then

De plus il y a un Select de trop ici

Code :

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

Cells(g, 13).Select.Select

Ceci étant dit, on ne le répétera jamais assez, il est parfaitement inutile en VBA d'utiliser la méthode Select
Donc

Code :

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

1
2
3
4
5
6
7
 
Dim g
For g = 3 To 100
    If Cells(g, 7) Like "*R-C*" Then
        Cells(g, 7).Copy Cells(g, 13)
    End If
Next

Ou encore, puisqu'il s'agit d'un copier/coller

Code :

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

1
2
3
4
5
For g = 3 To 100
 If Cells(g, 7) Like "*R-C*" Then
   Cells(g, 13) = Cells(g, 7)
 End If
Next

[fmris]

ok ca marche merci