Recherche d'une valeur "texte" dans une boucle
Bonjour à tous
Dans une boucle (imbriquée dans une autre boucle) qui me permet de récupérer des valeurs "numériques", et des valeurs "texte" et de les transférer sur une autre feuille, je souhaite récupérer dans une table la valeur texte correspondant à la valeur numérique de l'indice 1 de a boucle
Indice de ma boucle = i
Variable des Valeurs = Val
Ci après ma macro
Sub Devis()
Dim i As Long
Dim j As Long
Dim DerniereLigne As Integer
Dim Val As Variant
Dim col As long
j = 5
'Application.ScreenUpdating = False
Sheets("Ouvrage").Select
With ActiveWorkbook.Worksheets("Ouvrage")
'calcul le nombre de lignes
DerniereLigne = .Range("A1").End(xlDown).Row
MsgBox DerniereLigne
col = 12
For col = 12 to 22
i = 1
Do
Val = Cells(i, col).Value
If Val <> 0 Then
IF I = 1 Then
Val = 0
Range("H" & i) = 0
End If
Range("H" & i).Copy Destination:=Sheets("Devis").Range("B" & j)
Sheets("Devis").Range("D" & j) = Val
j = j + 2
End If
i = i + 1
Loop Until i = DerniereLigne
Next COL
End With
sheets("Devis").Select
End SubLa valeur "texte" à récupérer pour i = 1 est actuellement égale à 0 car elle change à chaque changement de colonne de ma 1ère boucle et je ne sais pas faire une RECHERCHEV dans une boucle,
il s'agit du titre de chaque colonne correspond aux localisation de la table "LOCALISATION" en fin de message.
Les autres valeurs sont celles de la colonne H de ma feuille "Ouvrages" en regard de chaque valeur correspondant à i
IF I = 1 Then
Val = 0 ' A récupérer et à utiliser pour identifier la valeur "texte" cherchée,
Range("H" & i) = 0 ' Endroit ou stocker la valeur "texte" cherchée
End If
Feuille "Ouvrages"
H I J K L M N O
1 10 20 30 40
2 Description des natures d'ouvrage
3 Description des natures d'ouvrage
Etc.
Table "LOCALISATION" ou récupérer la valeur "texte" uniquement pour i =1
Ex: Pour Val =10 Texte = Infrastructure / Pour Val = 20 Texte = RDC Etc.
A B
10 Infrastructure
20 RDC
30 Etage 1
40 Etage 2
Etc
Vous en remerciant par avance
Cordialement
Bonjour,
ça irait mieux avec un fichier
Bonjour
J'ai rajouté un fichier
La table de LOCALISATION à partir de laquelle je souhaite récupérer l'indication de localisation correspondant aux codes 10 à 110 se trouve sur la feuille Métrés
Cordialement
bonjour
salut sabV au passage
pas LE fichier très complexe, mais un fichier exemple de3 colonnes et 5 lignes, avec le résultat attendu
voir aussi