J'ai reçu par un membre du groupe, et je l'en remercie
car cela fonctionne à merveille.
J'aurais souhaité savoir comment l'adapter pour rechercher
la valeur de la 6ème colonne soit colonne G car le code ci-dessous
Me donne la valeur de la colonne à coté de la liste donc en C
Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim Rg As Range, RgComb As Range
With Me.ComboBox1
Set RgComb = Range(.RowSource)
If .ListIndex <> -1 Then
If .Text <> "" Then
Ligne = .ListIndex + 1
With Worksheets("ListeDelhaize")
Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row)
End With
Rg = RgComb(Ligne)
Rg(, 2) = RgComb(Ligne, 2)
End If
End If
End With
Set Rg = Nothing: Set RgComb = Nothing
End Sub
--
Merci au groupe pour vos réponses
Amicalement
Bruno
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Bruno,
Je ne suis pas sûr de comprendre ta demande !
| pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur | dela colonne à coté de la liste donc en C
Si j'ai bien deviné, tu voudrais copier la colonne G au lieu de la colonne C dans ta plage Rg(,2)
Pour ce faire modifie le 2 pour un 6 dans cette ligne de code de la procédure. Comme ceci : Rg(, 2) = RgComb(Ligne, 6)
Salutations!
"Bruno ALEMANNO" a écrit dans le message de news: Bonsoir le groupe,
J'ai reçu par un membre du groupe, et je l'en remercie car cela fonctionne à merveille. J'aurais souhaité savoir comment l'adapter pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur de la colonne à coté de la liste donc en C Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change() Dim Ligne As Long Dim Rg As Range, RgComb As Range With Me.ComboBox1 Set RgComb = Range(.RowSource) If .ListIndex <> -1 Then If .Text <> "" Then Ligne = .ListIndex + 1 With Worksheets("ListeDelhaize") Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row) End With Rg = RgComb(Ligne) Rg(, 2) = RgComb(Ligne, 2) End If End If End With Set Rg = Nothing: Set RgComb = Nothing End Sub
-- Merci au groupe pour vos réponses Amicalement Bruno
Bonjour Bruno,
Je ne suis pas sûr de comprendre ta demande !
| pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur
| dela colonne à coté de la liste donc en C
Si j'ai bien deviné, tu voudrais copier la colonne G au lieu de la colonne C dans ta plage Rg(,2)
Pour ce faire modifie le 2 pour un 6 dans cette ligne de code de la procédure. Comme ceci :
Rg(, 2) = RgComb(Ligne, 6)
Salutations!
"Bruno ALEMANNO" <balemanno@skynet.be> a écrit dans le message de news: eMsN5WNLFHA.3296@TK2MSFTNGP15.phx.gbl...
Bonsoir le groupe,
J'ai reçu par un membre du groupe, et je l'en remercie
car cela fonctionne à merveille.
J'aurais souhaité savoir comment l'adapter pour rechercher
la valeur de la 6ème colonne soit colonne G car le code ci-dessous
Me donne la valeur de la colonne à coté de la liste donc en C
Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim Rg As Range, RgComb As Range
With Me.ComboBox1
Set RgComb = Range(.RowSource)
If .ListIndex <> -1 Then
If .Text <> "" Then
Ligne = .ListIndex + 1
With Worksheets("ListeDelhaize")
Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row)
End With
Rg = RgComb(Ligne)
Rg(, 2) = RgComb(Ligne, 2)
End If
End If
End With
Set Rg = Nothing: Set RgComb = Nothing
End Sub
--
Merci au groupe pour vos réponses
Amicalement
Bruno
| pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur | dela colonne à coté de la liste donc en C
Si j'ai bien deviné, tu voudrais copier la colonne G au lieu de la colonne C dans ta plage Rg(,2)
Pour ce faire modifie le 2 pour un 6 dans cette ligne de code de la procédure. Comme ceci : Rg(, 2) = RgComb(Ligne, 6)
Salutations!
"Bruno ALEMANNO" a écrit dans le message de news: Bonsoir le groupe,
J'ai reçu par un membre du groupe, et je l'en remercie car cela fonctionne à merveille. J'aurais souhaité savoir comment l'adapter pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur de la colonne à coté de la liste donc en C Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change() Dim Ligne As Long Dim Rg As Range, RgComb As Range With Me.ComboBox1 Set RgComb = Range(.RowSource) If .ListIndex <> -1 Then If .Text <> "" Then Ligne = .ListIndex + 1 With Worksheets("ListeDelhaize") Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row) End With Rg = RgComb(Ligne) Rg(, 2) = RgComb(Ligne, 2) End If End If End With Set Rg = Nothing: Set RgComb = Nothing End Sub
-- Merci au groupe pour vos réponses Amicalement Bruno
MichDenis
Le crayon a fourché ... le 6 est un 7 en réalité !
;-))
Salutations!
"MichDenis" a écrit dans le message de news: Bonjour Bruno,
Je ne suis pas sûr de comprendre ta demande !
| pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur | dela colonne à coté de la liste donc en C
Si j'ai bien deviné, tu voudrais copier la colonne G au lieu de la colonne C dans ta plage Rg(,2)
Pour ce faire modifie le 2 pour un 6 dans cette ligne de code de la procédure. Comme ceci : Rg(, 2) = RgComb(Ligne, 6)
Salutations!
"Bruno ALEMANNO" a écrit dans le message de news: Bonsoir le groupe,
J'ai reçu par un membre du groupe, et je l'en remercie car cela fonctionne à merveille. J'aurais souhaité savoir comment l'adapter pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur de la colonne à coté de la liste donc en C Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change() Dim Ligne As Long Dim Rg As Range, RgComb As Range With Me.ComboBox1 Set RgComb = Range(.RowSource) If .ListIndex <> -1 Then If .Text <> "" Then Ligne = .ListIndex + 1 With Worksheets("ListeDelhaize") Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row) End With Rg = RgComb(Ligne) Rg(, 2) = RgComb(Ligne, 2) End If End If End With Set Rg = Nothing: Set RgComb = Nothing End Sub
-- Merci au groupe pour vos réponses Amicalement Bruno
Le crayon a fourché ... le 6 est un 7 en réalité !
;-))
Salutations!
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news: uH2I5hNLFHA.2512@TK2MSFTNGP10.phx.gbl...
Bonjour Bruno,
Je ne suis pas sûr de comprendre ta demande !
| pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur
| dela colonne à coté de la liste donc en C
Si j'ai bien deviné, tu voudrais copier la colonne G au lieu de la colonne C dans ta plage Rg(,2)
Pour ce faire modifie le 2 pour un 6 dans cette ligne de code de la procédure. Comme ceci :
Rg(, 2) = RgComb(Ligne, 6)
Salutations!
"Bruno ALEMANNO" <balemanno@skynet.be> a écrit dans le message de news: eMsN5WNLFHA.3296@TK2MSFTNGP15.phx.gbl...
Bonsoir le groupe,
J'ai reçu par un membre du groupe, et je l'en remercie
car cela fonctionne à merveille.
J'aurais souhaité savoir comment l'adapter pour rechercher
la valeur de la 6ème colonne soit colonne G car le code ci-dessous
Me donne la valeur de la colonne à coté de la liste donc en C
Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim Rg As Range, RgComb As Range
With Me.ComboBox1
Set RgComb = Range(.RowSource)
If .ListIndex <> -1 Then
If .Text <> "" Then
Ligne = .ListIndex + 1
With Worksheets("ListeDelhaize")
Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row)
End With
Rg = RgComb(Ligne)
Rg(, 2) = RgComb(Ligne, 2)
End If
End If
End With
Set Rg = Nothing: Set RgComb = Nothing
End Sub
--
Merci au groupe pour vos réponses
Amicalement
Bruno
Le crayon a fourché ... le 6 est un 7 en réalité !
;-))
Salutations!
"MichDenis" a écrit dans le message de news: Bonjour Bruno,
Je ne suis pas sûr de comprendre ta demande !
| pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur | dela colonne à coté de la liste donc en C
Si j'ai bien deviné, tu voudrais copier la colonne G au lieu de la colonne C dans ta plage Rg(,2)
Pour ce faire modifie le 2 pour un 6 dans cette ligne de code de la procédure. Comme ceci : Rg(, 2) = RgComb(Ligne, 6)
Salutations!
"Bruno ALEMANNO" a écrit dans le message de news: Bonsoir le groupe,
J'ai reçu par un membre du groupe, et je l'en remercie car cela fonctionne à merveille. J'aurais souhaité savoir comment l'adapter pour rechercher la valeur de la 6ème colonne soit colonne G car le code ci-dessous Me donne la valeur de la colonne à coté de la liste donc en C Je répète le code fonctionne très bien.
Private Sub ComboBox1_Change() Dim Ligne As Long Dim Rg As Range, RgComb As Range With Me.ComboBox1 Set RgComb = Range(.RowSource) If .ListIndex <> -1 Then If .Text <> "" Then Ligne = .ListIndex + 1 With Worksheets("ListeDelhaize") Set Rg = .Range("a" & .Range("A65536").End(xlUp)(2).Row) End With Rg = RgComb(Ligne) Rg(, 2) = RgComb(Ligne, 2) End If End If End With Set Rg = Nothing: Set RgComb = Nothing End Sub
-- Merci au groupe pour vos réponses Amicalement Bruno
