Je que ma cellule active vérifie si elle est égale à la valeur de ma combox.
De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification:
If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la
valeur du combobox
ActiveCell.Offset(1, 17).Select
Selection.Copy
Sheets("Feuil1").Activate
Range("c2").Select
ActiveSheet.Paste
Else: ActiveCell.Offset(1, 0).Select
GoTo Vérification
End If
J'ai regarder mon format de cellule et il est à standard.
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
LSteph
Bonjour Linebaker,
On peut boucler sur un ensemble decellules sans itèrer par un if goto récursif et aussi vérifier une égalité ou affecter une valeur sans sélectionner nécessairement cellule..
Il serait plus facile de savoir ce que tu souhaite faire en finalité.
lSteph
"Linebaker" a écrit dans le message de news: uA2Je.25352$
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma combox. De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification: If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la valeur du combobox ActiveCell.Offset(1, 17).Select Selection.Copy Sheets("Feuil1").Activate Range("c2").Select ActiveSheet.Paste Else: ActiveCell.Offset(1, 0).Select GoTo Vérification End If
J'ai regarder mon format de cellule et il est à standard.
Merci pour votre aide.
Bonjour Linebaker,
On peut boucler sur un ensemble decellules sans itèrer par un if goto
récursif
et aussi vérifier une égalité ou affecter une valeur sans sélectionner
nécessairement cellule..
Il serait plus facile de savoir ce que tu souhaite faire en finalité.
lSteph
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de news:
uA2Je.25352$De.978967@wagner.videotron.net...
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma
combox. De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification:
If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la
valeur du combobox
ActiveCell.Offset(1, 17).Select
Selection.Copy
Sheets("Feuil1").Activate
Range("c2").Select
ActiveSheet.Paste
Else: ActiveCell.Offset(1, 0).Select
GoTo Vérification
End If
J'ai regarder mon format de cellule et il est à standard.
On peut boucler sur un ensemble decellules sans itèrer par un if goto récursif et aussi vérifier une égalité ou affecter une valeur sans sélectionner nécessairement cellule..
Il serait plus facile de savoir ce que tu souhaite faire en finalité.
lSteph
"Linebaker" a écrit dans le message de news: uA2Je.25352$
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma combox. De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification: If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la valeur du combobox ActiveCell.Offset(1, 17).Select Selection.Copy Sheets("Feuil1").Activate Range("c2").Select ActiveSheet.Paste Else: ActiveCell.Offset(1, 0).Select GoTo Vérification End If
J'ai regarder mon format de cellule et il est à standard.
Merci pour votre aide.
MPi
Salut,
Tu pourrais essayer ainsi, si le nom du Combobox est bien "combobox": If ActiveCell.Value = Me.Combobox.Text then ...
et si ça ne fonctionne pas, peut-être ainsi: If CStr(Activecell.value) = Me.Combobox.text then ...
Michel
"Linebaker" a écrit dans le message de news:uA2Je.25352$
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma combox.
De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification: If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la
valeur du combobox ActiveCell.Offset(1, 17).Select Selection.Copy Sheets("Feuil1").Activate Range("c2").Select ActiveSheet.Paste Else: ActiveCell.Offset(1, 0).Select GoTo Vérification End If
J'ai regarder mon format de cellule et il est à standard.
Merci pour votre aide.
Salut,
Tu pourrais essayer ainsi, si le nom du Combobox est bien "combobox":
If ActiveCell.Value = Me.Combobox.Text then ...
et si ça ne fonctionne pas, peut-être ainsi:
If CStr(Activecell.value) = Me.Combobox.text then ...
Michel
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de
news:uA2Je.25352$De.978967@wagner.videotron.net...
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma
combox.
De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification:
If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre
la
valeur du combobox
ActiveCell.Offset(1, 17).Select
Selection.Copy
Sheets("Feuil1").Activate
Range("c2").Select
ActiveSheet.Paste
Else: ActiveCell.Offset(1, 0).Select
GoTo Vérification
End If
J'ai regarder mon format de cellule et il est à standard.
Tu pourrais essayer ainsi, si le nom du Combobox est bien "combobox": If ActiveCell.Value = Me.Combobox.Text then ...
et si ça ne fonctionne pas, peut-être ainsi: If CStr(Activecell.value) = Me.Combobox.text then ...
Michel
"Linebaker" a écrit dans le message de news:uA2Je.25352$
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma combox.
De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification: If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la
valeur du combobox ActiveCell.Offset(1, 17).Select Selection.Copy Sheets("Feuil1").Activate Range("c2").Select ActiveSheet.Paste Else: ActiveCell.Offset(1, 0).Select GoTo Vérification End If
J'ai regarder mon format de cellule et il est à standard.
Merci pour votre aide.
Linebaker
Bonjour lSteph,
Dans mon userform je sélectionne dans mon combobox une valeur (combobox). Suite à la sélection de cette valeur je compare dans ma base ma feuille de données("Données") jusqu'à ce que les deux valeur soient égale. Suite à cela je copie la ligne (ActiveCell.Offset(1, 17).Select) pour la coller dans une autre feuille.
Est-ce que explication est convainquante ? Je ne sais comment l'explique autrement !
Merci
Bonjour lSteph,
Dans mon userform je sélectionne dans mon combobox une valeur (combobox).
Suite à la sélection de cette valeur je compare dans ma base ma feuille de
données("Données") jusqu'à ce que les deux valeur soient égale. Suite à cela
je copie la ligne (ActiveCell.Offset(1, 17).Select) pour la coller dans une
autre feuille.
Est-ce que explication est convainquante ? Je ne sais comment l'explique
autrement !
Dans mon userform je sélectionne dans mon combobox une valeur (combobox). Suite à la sélection de cette valeur je compare dans ma base ma feuille de données("Données") jusqu'à ce que les deux valeur soient égale. Suite à cela je copie la ligne (ActiveCell.Offset(1, 17).Select) pour la coller dans une autre feuille.
Est-ce que explication est convainquante ? Je ne sais comment l'explique autrement !
Merci
Linebaker
Bonjour MPi,
J'ai choisit ta deuxième soluction et elle fonctionne parfaitement.
Merci
"MPi" a écrit dans le message de news: ZD3Je.33613$
Salut,
Tu pourrais essayer ainsi, si le nom du Combobox est bien "combobox": If ActiveCell.Value = Me.Combobox.Text then ...
et si ça ne fonctionne pas, peut-être ainsi: If CStr(Activecell.value) = Me.Combobox.text then ...
Michel
"Linebaker" a écrit dans le message de news:uA2Je.25352$
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma combox.
De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification: If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre la
valeur du combobox ActiveCell.Offset(1, 17).Select Selection.Copy Sheets("Feuil1").Activate Range("c2").Select ActiveSheet.Paste Else: ActiveCell.Offset(1, 0).Select GoTo Vérification End If
J'ai regarder mon format de cellule et il est à standard.
Merci pour votre aide.
Bonjour MPi,
J'ai choisit ta deuxième soluction et elle fonctionne parfaitement.
Merci
"MPi" <m_pare@supprimer.videotron.ca> a écrit dans le message de news:
ZD3Je.33613$U22.904322@weber.videotron.net...
Salut,
Tu pourrais essayer ainsi, si le nom du Combobox est bien "combobox":
If ActiveCell.Value = Me.Combobox.Text then ...
et si ça ne fonctionne pas, peut-être ainsi:
If CStr(Activecell.value) = Me.Combobox.text then ...
Michel
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de
news:uA2Je.25352$De.978967@wagner.videotron.net...
Bonjour à vous tous,
Je que ma cellule active vérifie si elle est égale à la valeur de ma
combox.
De quelle façon cela pourrait fonctionner ?
Voici mon code :
Vérification:
If ActiveCell = Me.combobox.Value Then ' ici la cellule doit prendre
la
valeur du combobox
ActiveCell.Offset(1, 17).Select
Selection.Copy
Sheets("Feuil1").Activate
Range("c2").Select
ActiveSheet.Paste
Else: ActiveCell.Offset(1, 0).Select
GoTo Vérification
End If
J'ai regarder mon format de cellule et il est à standard.