Récupérer une valeur texte dans une boucle
Bonjour à tous
dans une boucle (imbriquée dans une autre boucle) qui me donne des valeurs numériques, 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
:btres: 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 Sub
La valeur "texte" à récupérer pour i = 1 est actuellement égale à 0 car elle change à chaque changement de colonne de ma 1ère 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"
1 H I J K L M N O
2 10 20 30 40
3 Description des natures d'ouvrage
4 Description des natures d'ouvrage
Table "LOCALISATION" ou récupérer la valeur "texte" uniquement pour i =1
Ex: Pour Val =10 Texte = Infrastructure / Pour Val = 20 Texte = RDC
A B
10 Infrastructure
20 RDC
30 Etage 1
40 Etage 2
Etc
Vous en remerciant par avance
Cordialement
Bonjour jlduboc66,
* comme ta demande est pour résoudre un exercice Excel, tu devrais poster ta demande dans le forum « Excel - VBA » ; ainsi, tu auras plus de chances d'obtenir une réponse.
* tu devrais mettre ton code entre balises de code ; utilise ce bouton : (situé au-dessus du coin haut gauche de la fenêtre d'édition).
dhany
Merci Dhany
Qu'appelles tu le Code (Je n'a pas l'habitude des forum)
Merci d'avance
Cordialement
ce que j'appelle « code », c'est le code VBA (= macro, sub, function) ; donc plus haut, c'est ta macro "Devis"
sélectionne tout ton code VBA, de Sub Devis() à End Sub et ensuite, clique sur le bouton
sans faire de sélection, tu peux aussi cliquer sur le même bouton et mettre le code VBA
entre les 2 paires de crochets (par saisie de texte ou par copier / coller).
dhany
J'ai envoyé ma demande sur excel-VBA en encadrant le code
et effectivement la macro apparait plus lisible
En est il de même pour les autres fonctions ?
Ex: pour surligner cela se fait il au moment de l'envoi comme pour le code
oui, pour les autres boutons de balises, c'est le même principe.
sauf par exemple pour le bouton qui met une ligne : y'a rien à mettre entre.
dhany
ajout : relis mon post précédent car je l'ai complété.
de plus, avant d'envoyer ton post, tu peux le vérifier en utilisant le bouton « Aperçu » qui est sous la fenêtre d'édition du post, juste à gauche du bouton « Envoyer » ; tu peux utiliser souvent ce bouton « Aperçu », après chaque modif si tu as envie.
dhany
Merci Dhany pour tes explications
moi aussi je suis un passionné d'EXCEL
Ayant été Métreur dans toutes sortes de domaine pour des suivis de chantier à l'étranger.
- Gros Oeuvre
- TCE
- Industriel /Charpente - Tuyauteries Etc..
J'ai construit des applications pour effectuer les métrés de ces ouvrages
La question de mon post d'aujourd'hui est la dernière étape d'une application qui me permettrait de créer automatiquement le CDPGF (Devis) à partir du métré des ouvrages constituant donc le CDPGF.
Elle fonctionne partiellement il me reste à intégrer la localisation (mon post d'aujourd'hui) et dans un 2ème temps, les chapitres regroupant les ouvrages.
J'en ai profité pour tester tes conseils
Cordialement
Jean Louis
merci pour ton retour d'infos !
bonne continuation pour la suite de ton projet !
dhany