Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
8e4a07eb-300c-465b-97e6-2d4f08679...@z37g2000vbl.googlegroups.com...
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
8e4a07eb-300c-465b-97e6-2d4f08679...@z37g2000vbl.googlegroups.com...
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
C'est le "ComboBox" & j.value qui buggue.
C'est le "ComboBox" & j.value qui buggue.
C'est le "ComboBox" & j.value qui buggue.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
8e4a07eb-300c-465b-97e6-2d4f08679...@z37g2000vbl.googlegroups.com...
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipomav$vh.
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:27, "MichD" wrote:
> Bonjour,
> Pourquoi ne pas énoncer clairement ce que tu veux faire ?
> Quel résultat veux-tu obtenir ?
> MichD
> --------------------------------------------
> "stephanie thibault" a écrit dans le message de groupe de discussi on :
>
> Bonjour,
> J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
> mes combobox.
> Je fais
> For j=1 to 6
> i = 2
> If "ComboBox" & j <> "vide" Then
> Do While Range("B" & i).Value <> ""
> If "ComboBox" & j.Value <> Range("B" & i) Then
> Range("B" & i).EntireRow.Select
> Rows(Selection.Row).Delete shift:=xlUp
> i = i - 1
> End If
> i = i + 1
> Loop
> End If
> Next j
> Je pense que je peux utiliser for each, mais je ne sais pas m'en
> servir.
> Merci
> Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipomav$vh. ..@speranza.aioe.org...
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
33aaec12-2174-4b48-bbf7-9affed6c9...@o7g2000vbn.googlegroups.com...
On 3 mai, 12:27, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
> Pourquoi ne pas énoncer clairement ce que tu veux faire ?
> Quel résultat veux-tu obtenir ?
> MichD
> --------------------------------------------
> "stephanie thibault" a écrit dans le message de groupe de discussi on :
> 8e4a07eb-300c-465b-97e6-2d4f08679...@z37g2000vbl.googlegroups.com...
> Bonjour,
> J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
> mes combobox.
> Je fais
> For j=1 to 6
> i = 2
> If "ComboBox" & j <> "vide" Then
> Do While Range("B" & i).Value <> ""
> If "ComboBox" & j.Value <> Range("B" & i) Then
> Range("B" & i).EntireRow.Select
> Rows(Selection.Row).Delete shift:=xlUp
> i = i - 1
> End If
> i = i + 1
> Loop
> End If
> Next j
> Je pense que je peux utiliser for each, mais je ne sais pas m'en
> servir.
> Merci
> Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipomav$vh.
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:27, "MichD" wrote:
> Bonjour,
> Pourquoi ne pas énoncer clairement ce que tu veux faire ?
> Quel résultat veux-tu obtenir ?
> MichD
> --------------------------------------------
> "stephanie thibault" a écrit dans le message de groupe de discussi on :
>
> Bonjour,
> J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
> mes combobox.
> Je fais
> For j=1 to 6
> i = 2
> If "ComboBox" & j <> "vide" Then
> Do While Range("B" & i).Value <> ""
> If "ComboBox" & j.Value <> Range("B" & i) Then
> Range("B" & i).EntireRow.Select
> Rows(Selection.Row).Delete shift:=xlUp
> i = i - 1
> End If
> i = i + 1
> Loop
> End If
> Next j
> Je pense que je peux utiliser for each, mais je ne sais pas m'en
> servir.
> Merci
> Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipomav$
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:27, "MichD" wrote:
> Bonjour,
> Pourquoi ne pas énoncer clairement ce que tu veux faire ?
> Quel résultat veux-tu obtenir ?
> MichD
> --------------------------------------------
> "stephanie thibault" a écrit dans le message de groupe de discussion :
>
> Bonjour,
> J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
> mes combobox.
> Je fais
> For j=1 to 6
> i = 2
> If "ComboBox" & j <> "vide" Then
> Do While Range("B" & i).Value <> ""
> If "ComboBox" & j.Value <> Range("B" & i) Then
> Range("B" & i).EntireRow.Select
> Rows(Selection.Row).Delete shift:=xlUp
> i = i - 1
> End If
> i = i + 1
> Loop
> End If
> Next j
> Je pense que je peux utiliser for each, mais je ne sais pas m'en
> servir.
> Merci
> Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipomav$vh...@speranza.aioe.org...
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
33aaec12-2174-4b48-bbf7-9affed6c9...@o7g2000vbn.googlegroups.com...
On 3 mai, 12:27, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
> Pourquoi ne pas énoncer clairement ce que tu veux faire ?
> Quel résultat veux-tu obtenir ?
> MichD
> --------------------------------------------
> "stephanie thibault" a écrit dans le message de groupe de discussion :
> 8e4a07eb-300c-465b-97e6-2d4f08679...@z37g2000vbl.googlegroups.com...
> Bonjour,
> J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
> mes combobox.
> Je fais
> For j=1 to 6
> i = 2
> If "ComboBox" & j <> "vide" Then
> Do While Range("B" & i).Value <> ""
> If "ComboBox" & j.Value <> Range("B" & i) Then
> Range("B" & i).EntireRow.Select
> Rows(Selection.Row).Delete shift:=xlUp
> i = i - 1
> End If
> i = i + 1
> Loop
> End If
> Next j
> Je pense que je peux utiliser for each, mais je ne sais pas m'en
> servir.
> Merci
> Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : ipomav$
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:27, "MichD" wrote:
> Bonjour,
> Pourquoi ne pas énoncer clairement ce que tu veux faire ?
> Quel résultat veux-tu obtenir ?
> MichD
> --------------------------------------------
> "stephanie thibault" a écrit dans le message de groupe de discussion :
>
> Bonjour,
> J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
> mes combobox.
> Je fais
> For j=1 to 6
> i = 2
> If "ComboBox" & j <> "vide" Then
> Do While Range("B" & i).Value <> ""
> If "ComboBox" & j.Value <> Range("B" & i) Then
> Range("B" & i).EntireRow.Select
> Rows(Selection.Row).Delete shift:=xlUp
> i = i - 1
> End If
> i = i + 1
> Loop
> End If
> Next j
> Je pense que je peux utiliser for each, mais je ne sais pas m'en
> servir.
> Merci
> Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
"NomDeLaFeuille" = Nom de l'onglet de la feuille où sont tes données entre
guillemets
Cette procédure suppose que tes combobox ont comme propriété "Name"
Combobox1 , Combobox2 ... Combobox6
Si leur nom est différent, c'est sûr que cela ne fonctionnera pas !
Si tu respectes ce qui précède, qu'est-ce qui ne fonctionne pas ?
Quelle ligne est mise en surbrillance lorsque l'exécution s'arrête ?
'-------------------------------
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
'-------------------------------
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:51, "MichD" wrote:Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
ipomav$
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:27, "MichD" wrote:Bonjour,Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je faisFor j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next jJe pense que je peux utiliser for each, mais je ne sais pas m'en
servir.MerciMais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
"NomdelaFeuille", je peux mettre "userform1" ? Parce que mes combobox
sont sur un userform.
Ou alors je mets le nom de la feuille où il y a mes données ?
Mais ça ne marche pas, j'utilise office 2007, c'est pareil ?
Merci
"NomDeLaFeuille" = Nom de l'onglet de la feuille où sont tes données entre
guillemets
Cette procédure suppose que tes combobox ont comme propriété "Name"
Combobox1 , Combobox2 ... Combobox6
Si leur nom est différent, c'est sûr que cela ne fonctionnera pas !
Si tu respectes ce qui précède, qu'est-ce qui ne fonctionne pas ?
Quelle ligne est mise en surbrillance lorsque l'exécution s'arrête ?
'-------------------------------
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
'-------------------------------
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
349de74e-a42c-456a-af93-9377a8c243a5@l2g2000prg.googlegroups.com...
On 3 mai, 12:51, "MichD" <michde...@hotmail.com> wrote:
Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
ipomav$vh...@speranza.aioe.org...
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
33aaec12-2174-4b48-bbf7-9affed6c9...@o7g2000vbn.googlegroups.com...
On 3 mai, 12:27, "MichD" <michde...@hotmail.com> wrote:
Bonjour,
Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
8e4a07eb-300c-465b-97e6-2d4f08679...@z37g2000vbl.googlegroups.com...
Bonjour,
J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je fais
For j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next j
Je pense que je peux utiliser for each, mais je ne sais pas m'en
servir.
Merci
Mais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
"NomdelaFeuille", je peux mettre "userform1" ? Parce que mes combobox
sont sur un userform.
Ou alors je mets le nom de la feuille où il y a mes données ?
Mais ça ne marche pas, j'utilise office 2007, c'est pareil ?
Merci
"NomDeLaFeuille" = Nom de l'onglet de la feuille où sont tes données entre
guillemets
Cette procédure suppose que tes combobox ont comme propriété "Name"
Combobox1 , Combobox2 ... Combobox6
Si leur nom est différent, c'est sûr que cela ne fonctionnera pas !
Si tu respectes ce qui précède, qu'est-ce qui ne fonctionne pas ?
Quelle ligne est mise en surbrillance lorsque l'exécution s'arrête ?
'-------------------------------
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
'-------------------------------
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:51, "MichD" wrote:Dans la présentation de ma procédure, j'ai omis une ligne :
Pour pouvoir sélectionner une cellule dans une feuille,
cette feuille doit-être la feuille active à l'écran
With Worksheets("NomDeLaFeuille")
.Activate '<=====la ligne oubliée.
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
ipomav$
Et que veux-tu faire avec la sélection...
Il n'est pas nécessaire de sélectionner une plage de cellules
pour la transformer avec une macro. Encore faut-il que tu
énonces clairement ce que tu veux faire...
Remplace "NomDeLaFeuille" par le nom de la feuille de ton application.
Si ce code est mis dans un module standard, tu remplaces le mot "Me" par
le nom (propriété Name) du formulaire(userform)
With Worksheets("NomDeLaFeuille")
For j = 1 To 6
If Me.Controls("ComboBox" & j).value <> .Range("B1") Then
.Range("B1").EntireRow.Select
End if
Next
next j
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
On 3 mai, 12:27, "MichD" wrote:Bonjour,Pourquoi ne pas énoncer clairement ce que tu veux faire ?
Quel résultat veux-tu obtenir ?MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,J'ai 6 combobox dans un userform, et j'aimerais faire une boucle sur
mes combobox.
Je faisFor j=1 to 6
i = 2
If "ComboBox" & j <> "vide" Then
Do While Range("B" & i).Value <> ""
If "ComboBox" & j.Value <> Range("B" & i) Then
Range("B" & i).EntireRow.Select
Rows(Selection.Row).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End If
Next jJe pense que je peux utiliser for each, mais je ne sais pas m'en
servir.MerciMais ça ne marche pas.
Peu importe en fait ce qu'il y a dans la boucle, en plus simple, pour
mes 6 box, si la valeur de ma box est différente de B1, alors je
sélectionne la ligne.
C'est le "ComboBox" & j.value qui buggue.
For j = 1 To 6
If "ComboBox" & j.value <> Range("B1") Then
Range("B1").EntireRow.Select
next j
"NomdelaFeuille", je peux mettre "userform1" ? Parce que mes combobox
sont sur un userform.
Ou alors je mets le nom de la feuille où il y a mes données ?
Mais ça ne marche pas, j'utilise office 2007, c'est pareil ?
Merci