Discussion :

[kuma_buzz]

Salut,


Je suis en train de faire une macro pour récupérer les données de différents devis et les classer dans une feuille excel, mais je bloque sur un problème pour récupérer le numéro du devis.

Je vous met la partie de code qui coince :

Code :

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

1
2
3
4
5
6
7
For u = 1 To 10 Step 1
For k = 1 To 6 Step 1
 
If Cells(u, k).FormulaR1C1 = "        N° DEVIS" Then Devis = Cells(u, k + 1).Value
 
Next k
Next u

En gros, je recherche la valeur "N° DEVIS" et dès que je la trouve je donne la valeur de la cellule suivante (celle juste à droite de "N° DEVIS") à ma variable Devis.

Le soucis qui se pose c'est que le type qui a fait les devis s'est amusé à modifier non seulement l'emplacement de la celulle contenant "N° DEVIS" (d'où la nécessité de la recherche) mais a aussi parfois mis cette valeur dans des cellules fusionnées dans lesquelles il a recentré la valeur avec des espaces ...

En conséquence je me retrouve à devoir rechercher une valeur avec un nombre indéterminé d'espaces. J'imagine qu'il y a une solution moins "bricolage" que de rentrer toutes le valeurs possibles avec des "Or" au milieu et donc je viens vous poser la question.

Existe il une fonction de type

Code :

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

Cells(u, k).Value = "*N° DEVIS*"

avec les étoiles permettant comme pour une recherche windows de signaler qu'il peut y avoir d'autres caractères à gauche ou à droite du terme recherché ?

Merci d'avance

[pyrene]

salut

essaie avec ça:

Code :

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

instr(1,chaine_cible, chaine_recherché)

le 1 pour dire que ca commence au caractere n°1
la chaine cible c'est là ou tu rechercher
la chaine recherché c'est " N° Devis"

ca marche! sauf si j'ai ecrit des betises

[Invité]

Vous pouvez essayer :

Code :

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

1
2
3
4
5
6
7
8
9
numdev = "*123*"
 
With Worksheets("MaFeuille").Range("A1:F10")
Set Cel1 = .Find(numdev, LookIn:=xlValues, LookAt:=xlWhole)
End With
    If Not Cel1 Is Nothing Then
    ad2 = Cel1.Address
    mavaleur = Range(ad2).Offset(0, 1).Value
    End If

[ilcocodrillo]

Le soucis qui se pose c'est que le type qui a fait les devis s'est amusé à modifier non seulement l'emplacement de la celulle contenant "N° DEVIS" (d'où la nécessité de la recherche) mais a aussi parfois mis cette valeur dans des cellules fusionnées dans lesquelles il a recentré la valeur avec des espaces ...

il y a aussi les fonctions trim très pratique pour les espaces baladeurs !

LTrim, RTrim et Trim, fonctions

Renvoie une valeur de type Variant (String) contenant une copie d'une chaîne en supprimant les espaces de gauche (LTrim), les espaces de droite (RTrim) ou les deux (Trim).

Syntaxe

LTrim(string)

RTrim(string)

Trim(string)

L'argument string peut être toute expression de chaîne valide. Si l'argument string contient une valeur de type Null, Null est renvoyé.

[kuma_buzz]

Merci beaucoup pour votre aide.

La solution la plus simple à intégrer dans mon code (et avec mon niveau de débutant) a été celle de pyrene.

Voici donc le code final pour ceux que ça intéresse :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For J = 1 To 10 Step 1
For s = 1 To 6 Step 1
 
If InStr(1, Cells(J, s), "N° DEVIS") Or InStr(1, Cells(J, s), "Quotation n°") Then
    If Cells(J, s + 1).Value <> "" Then
        devis = Cells(J, s + 1).Value
    Else: devis = Cells(J, s + 2).Value
    End If
End If
 
Next s
Next J

J'ai rajouté une valeur "Quotation" parce que certains devis sont en anglais.
La parti avec les + 1 et +2 c'est pour gérer le décalage de cellules du au fusionnement. En effet, si ma chaine est dans une cellule fusionnée il faut "sauter" la cellule suivante avant de récupérer la valeur.
C'est d'ailleurs pourquoi je ne me suis pas lancé dans l'utilisation de la solution de jacques_jean, ça aurait dépassé mes compétences.

@ilcocodrillo : je ne comprend pas bien comment utiliser les fonctions que tu me donnes, aurait il fallu que je mette quelque chose comme :

Code :

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

If Cells(J, s).Value = Trim("N° DEVIS") Then ...

En tout cas merci pour la rapidité et l'efficacité de vos réponse.

a +