Besoin d'info en vba.
Résolu
jen_peplu
Messages postés
35
Statut
Membre
-
jen_peplu Messages postés 35 Statut Membre -
jen_peplu Messages postés 35 Statut Membre -
Bonjour,
Quelqu'un pourrait-il m'expliquer pourquoi en VBA excel 2003:
- quand j'écris le code en activant la ligne 6 et désactivant la ligne 7, cela fonctionne.
- quand je désactive la ligne 6 pour mettre la ligne 7 en service cela ne marche plus, range("D3") prennent bien leurs valeurs, mais zon est égal à "nothing" ?
1 - Dim Val As Variant
2 - Dim zon As Range
3 - Dim cellule As Range
4 - Dim A_L As Worksheet
5 - Set A_L = Sheets("A_LIVRER")
6 - Set zon = A_L.Range("D3:D65536")
7 - 'Set zon = A_L.Range("D3" & Range("D3").End(xlDown))
8 - Val = Userform1.LblN°Chantier.Caption
9 - For Each cellule In zon
10 - If cellule.Text = Val Then
11 - Userform1.LblDebite.Caption = CStr(cellule.Offset(0, 10))
12 - End If
13 - Next cellule
Cordialement
Merci à vous tous, qui nous permettent de progresser.
jen_peplu
PS : Paf merci pour tes précisions dans le dernier post, dans lequel je t'ai répondu.
Quelqu'un pourrait-il m'expliquer pourquoi en VBA excel 2003:
- quand j'écris le code en activant la ligne 6 et désactivant la ligne 7, cela fonctionne.
- quand je désactive la ligne 6 pour mettre la ligne 7 en service cela ne marche plus, range("D3") prennent bien leurs valeurs, mais zon est égal à "nothing" ?
1 - Dim Val As Variant
2 - Dim zon As Range
3 - Dim cellule As Range
4 - Dim A_L As Worksheet
5 - Set A_L = Sheets("A_LIVRER")
6 - Set zon = A_L.Range("D3:D65536")
7 - 'Set zon = A_L.Range("D3" & Range("D3").End(xlDown))
8 - Val = Userform1.LblN°Chantier.Caption
9 - For Each cellule In zon
10 - If cellule.Text = Val Then
11 - Userform1.LblDebite.Caption = CStr(cellule.Offset(0, 10))
12 - End If
13 - Next cellule
Cordialement
Merci à vous tous, qui nous permettent de progresser.
jen_peplu
PS : Paf merci pour tes précisions dans le dernier post, dans lequel je t'ai répondu.
A voir également:
- Besoin d'info en vba.
- Crystal disk info - Télécharger - Informations & Diagnostic
- Info pc - Guide
- Wifi info view - Télécharger - Divers Réseau & Wi-Fi
- I-info - Télécharger - Médias et Actualité
- Hw info - Télécharger - Informations & Diagnostic
3 réponses
Bonjour Michel
Merci pour la réponse, c'est exactement ce que je n'arrivais pas à faire.
Pourquoi le .Row à la fin ?
Je sélectionne de ("D3") à la dernière cellule vide de la colonne D, mais je comprend pas le .Row., puis-je avoir une explication pour éclairer ma lanterne ?
Dans tous les cas merci, parce que cela fonctionne.
Je signalerai résolu plus tard.
Cordialement
jen_peplu
Merci pour la réponse, c'est exactement ce que je n'arrivais pas à faire.
Pourquoi le .Row à la fin ?
Je sélectionne de ("D3") à la dernière cellule vide de la colonne D, mais je comprend pas le .Row., puis-je avoir une explication pour éclairer ma lanterne ?
Dans tous les cas merci, parce que cela fonctionne.
Je signalerai résolu plus tard.
Cordialement
jen_peplu
