Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Suite de "nom des onglets ds combobox"

Suite de "nom des onglets ds combobox"

8 réponses
Avatar
Christian
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value * TextBox31.Value
i = i + 1
End If
Next i


Christian
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
papou
Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le message de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value * TextBox31.Value
i = i + 1
End If
Next i


Christian


Avatar
Christian
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le message de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value * TextBox31.Value
i = i + 1
End If
Next i


Christian







Avatar
papou
Re
Quel est le point de départ pour ta variable ?

Cordialement
Pascal

"Christian" a écrit dans le message de
news:
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le message
de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value *
TextBox31.Value
i = i + 1
End If
Next i


Christian









Avatar
Christian
Re
Qu'est que tu entends par point de départ .
Cdlt
Christian


Re
Quel est le point de départ pour ta variable ?

Cordialement
Pascal

"Christian" a écrit dans le message de
news:
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le message
de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value *
TextBox31.Value
i = i + 1
End If
Next i


Christian














Avatar
papou
Qu'est que tu entends par point de départ
A partir de quelle cellule commences-tu ton traitement ?


Cordialement
Pascal

"Christian" a écrit dans le message de
news:
Re
Qu'est que tu entends par point de départ .
Cdlt
Christian


Re
Quel est le point de départ pour ta variable ?

Cordialement
Pascal

"Christian" a écrit dans le message
de
news:
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le
message
de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value *
TextBox31.Value
i = i + 1
End If
Next i


Christian
















Avatar
Christian
A partir de quelle cellule commences-tu ton traitement ?
a partir de la cellule B2


Cdlt
Christian


Qu'est que tu entends par point de départ
A partir de quelle cellule commences-tu ton traitement ?


Cordialement
Pascal

"Christian" a écrit dans le message de
news:
Re
Qu'est que tu entends par point de départ .
Cdlt
Christian


Re
Quel est le point de départ pour ta variable ?

Cordialement
Pascal

"Christian" a écrit dans le message
de
news:
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le
message
de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value *
TextBox31.Value
i = i + 1
End If
Next i


Christian





















Avatar
papou
Bonjour
Dans ce cas, et si j'ai bien compris (à savoir si ta variable Cel représente
la cellule B2), tu peux modifier comme ceci :
soit ici on récupère la valeur de A2 :
Me.ListBox1.AddItem Cells(2,2).Offset(0, -1).Value
ici on récupère la valeur de C2 :
Me.ListBox1.Column(1, i) = Cells(2,2).Offset(0, 1).Value
et ici on récupère la valeur de D2
Me.ListBox1.Column(2, i) = Cells(2,2).Offset(0, 2).Value

Cordialement
Pascal


"Christian" a écrit dans le message de
news:
A partir de quelle cellule commences-tu ton traitement ?
a partir de la cellule B2


Cdlt
Christian


Qu'est que tu entends par point de départ
A partir de quelle cellule commences-tu ton traitement ?


Cordialement
Pascal

"Christian" a écrit dans le message
de
news:
Re
Qu'est que tu entends par point de départ .
Cdlt
Christian


Re
Quel est le point de départ pour ta variable ?

Cordialement
Pascal

"Christian" a écrit dans le
message
de
news:
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le
message
de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value *
TextBox31.Value
i = i + 1
End If
Next i


Christian























Avatar
Christian
Bonjour Pascal
Toujours un pb
" Variable objet ou variable with non définie"

Cdlt
Christian


Bonjour
Dans ce cas, et si j'ai bien compris (à savoir si ta variable Cel représente
la cellule B2), tu peux modifier comme ceci :
soit ici on récupère la valeur de A2 :
Me.ListBox1.AddItem Cells(2,2).Offset(0, -1).Value
ici on récupère la valeur de C2 :
Me.ListBox1.Column(1, i) = Cells(2,2).Offset(0, 1).Value
et ici on récupère la valeur de D2
Me.ListBox1.Column(2, i) = Cells(2,2).Offset(0, 2).Value

Cordialement
Pascal


"Christian" a écrit dans le message de
news:
A partir de quelle cellule commences-tu ton traitement ?
a partir de la cellule B2


Cdlt
Christian


Qu'est que tu entends par point de départ
A partir de quelle cellule commences-tu ton traitement ?


Cordialement
Pascal

"Christian" a écrit dans le message
de
news:
Re
Qu'est que tu entends par point de départ .
Cdlt
Christian


Re
Quel est le point de départ pour ta variable ?

Cordialement
Pascal

"Christian" a écrit dans le
message
de
news:
Slt Pascal
Il y a une erreur sur la variable "Cel".Est ce que je peut m'en
passer et par quoi la remplacer . Ou comment la déclarer.

Cdlt
Christian

Bonjour
Tu dois corriger les lignes suivantes
1°)
For i = 1 To .Sheets.COUNT
2°)
If .Worksheets(i).Name = Combobox1.Value Then

Cordialement
Pascal

"Christian" a écrit dans le
message
de
news:
Bonjour à tous
et merci à papou et M.Gaboly pour leurs aides hier.
Je bute également sur la suite du code, après avoir récupérer
le nom des onglets ds le combobox. Je n'arrive pas à recupérer
le contenu de la feuille selectionnée ds une listbox
Le code ci-dessou ne fonctionne pas, donnée introuvable
pour Sheets.Name


With Workbooks("Classeur1.xls")
For i = 1 To .Sheets.Name
If .Sheets.Name = ComboBox1.Value Then
Me.ListBox1.AddItem Cel.Offset(0, -1).Value
Me.ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
Me.ListBox1.Column(2, i) = Cel.Offset(0, 2).Value *
TextBox31.Value
i = i + 1
End If
Next i


Christian