Discussion :

[Ju_69]

Bonjour à tous,

Petit problème avec ma macro.

J'ai des cellules qui commence par "VVVVVVVVVVxxxxxxxxxx" Il y a 10 caractères vides (ici les V), et ensuite les "x" sont des caractères normaux.

je cherche à lui dire Si le 11èeme caractère en partant de la gauche est égal à "1" ou "2" ou "3" Then,

Mais je n'arrive pas à matérialiser ma condition (si le 11ème caractère)

Pouvez-vous m'aider ?

Merci par avance

[Invité]

Bonjour

Tu extrais ce caractère avec la fonction MID et tu fais le test.

Philippe

[Ju_69]

Alors là je suis un peu perdu,

Grace à la fonction Mid, j'ai réussit à extraire le bon caractère, à obtenir le nombre de caractère que je voulais avec la variable "Compte" mais je n'arrive pas à la copier/coller

Il n'y a pas l'intégralité de mon code, juste ce qui est concerné par le IF

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim Ref as String, Cible as String, Compte as String
 
Ref = ws.Range("B18").Value 'Cellule de départ de la boucle
Cible = Mid(Ref, 11, 1) 'Renvoi la valeur 6
Compte = Mid(Ref, 11, 8) 'Renvoi les 8 premiers caractères
 
If Cible Like "6" Then 
       Compte.Value.Copy
      newws.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False

Il ne comprend pas la ligne 9 (j'ai essayé plusieurs codes pour info)

Merci pour ton aide,

Cdt


Mais je n'arrive pas à l'intégrer dans mon SI

[Qwazerty]

Salut

Un String n'a ni propriété, ni méthode, ça n'est pas un objet, inutile d'essayer de mettre des .value ou .xxx derrière. Quand VBE ne propose rien une fois le point tapé, il vaut mieux y regarder à deux fois avant de continuer à taper du code.

Essai comme ça

Code :

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

If Cible = "6" then newws.range"A2").value = compte

Si j'ai bien compris, les V représentent des espaces? Si c'est le cas, regarde du coté de Trim(), un petit coup de F1 te donnera plus de détail.
++
Qwaz