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 .Range("A" & w) ne fonctionne pas ?

.Range("A" & w) ne fonctionne pas ?

5 réponses
Avatar
Christine
Bonjour tout le monde,

Voici mon gros problème. Lorsque dans la colonne k = la valeur en A et k =
la valeur en B, je sélectionne cette ligne pour apporter des modifications
dans celle-ci. Le hic c'est k ne trouve jamais la donnée en A donc ne trouve
pas celle en B. Pourtant tout semble OK. Où se trouve mon erreur ?

For w = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _ 'le format de la colonne A est
en texte
And .Range("B" & w) = Me.TextBox2.Value 'le format de la colonne B
est en numérique
Ligne = w
Exit For
End If
Next

Christine
Signaler un problème avec ce contenu

5 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
Bob Phillips
Les commentaires sont un problème

For w = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _
And .Range("B" & w) = Me.TextBox2.Value Then
Ligne = w
Exit For
End If
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Christine" wrote in message
news:CXSOg.92748$
Bonjour tout le monde,

Voici mon gros problème. Lorsque dans la colonne k = la valeur en A et k > la valeur en B, je sélectionne cette ligne pour apporter des modifications
dans celle-ci. Le hic c'est k ne trouve jamais la donnée en A donc ne
trouve

pas celle en B. Pourtant tout semble OK. Où se trouve mon erreur ?

For w = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _ 'le format de la colonne A est
en texte
And .Range("B" & w) = Me.TextBox2.Value 'le format de la colonne B
est en numérique
Ligne = w
Exit For
End If
Next

Christine




Avatar
Christine
Il ne trouve toujours pas la bonne ligne. Le code arrête à la dernière ligne
non-vide ???

"Bob Phillips" a écrit dans le message de news:

Les commentaires sont un problème

For w = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _
And .Range("B" & w) = Me.TextBox2.Value Then
Ligne = w
Exit For
End If
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Christine" wrote in message
news:CXSOg.92748$
Bonjour tout le monde,

Voici mon gros problème. Lorsque dans la colonne k = la valeur en A et k
la valeur en B, je sélectionne cette ligne pour apporter des
modifications


dans celle-ci. Le hic c'est k ne trouve jamais la donnée en A donc ne
trouve

pas celle en B. Pourtant tout semble OK. Où se trouve mon erreur ?

For w = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _ 'le format de la colonne A
est
en texte
And .Range("B" & w) = Me.TextBox2.Value 'le format de la colonne
B
est en numérique
Ligne = w
Exit For
End If
Next

Christine










Avatar
Pierre Fauconnier
Salut.

C'est peut-être une question de majuscules.

Si tu n'as pas la ligne
Option Compare Text
en début de module, alors
"Pierre" <> "pierre" dans les tests de comparaison.

Donc, utilise
Option Compare Text
en début de module, ou compare
ucase(.range("a" & w) = ucase(me.textbox1)

Ok?


--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Christine" a écrit dans le message de news:
Xt%Og.102934$
Il ne trouve toujours pas la bonne ligne. Le code arrête à la dernière
ligne non-vide ???

"Bob Phillips" a écrit dans le message de news:

Les commentaires sont un problème

For w = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _
And .Range("B" & w) = Me.TextBox2.Value Then
Ligne = w
Exit For
End If
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Christine" wrote in message
news:CXSOg.92748$
Bonjour tout le monde,

Voici mon gros problème. Lorsque dans la colonne k = la valeur en A et k
la valeur en B, je sélectionne cette ligne pour apporter des
modifications



dans celle-ci. Le hic c'est k ne trouve jamais la donnée en A donc ne
trouve

pas celle en B. Pourtant tout semble OK. Où se trouve mon erreur ?

For w = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _ 'le format de la colonne A
est
en texte
And .Range("B" & w) = Me.TextBox2.Value 'le format de la colonne
B
est en numérique
Ligne = w
Exit For
End If
Next

Christine















Avatar
Christine
Bonjour Pierre,

Toutes mes données sont en majuscules. Donc le problème n'est
malheureusement pas là. :((

Christine

"Pierre Fauconnier" a écrit dans le
message de news:
Salut.

C'est peut-être une question de majuscules.

Si tu n'as pas la ligne
Option Compare Text
en début de module, alors
"Pierre" <> "pierre" dans les tests de comparaison.

Donc, utilise
Option Compare Text
en début de module, ou compare
ucase(.range("a" & w) = ucase(me.textbox1)

Ok?


--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Christine" a écrit dans le message de news:
Xt%Og.102934$
Il ne trouve toujours pas la bonne ligne. Le code arrête à la dernière
ligne non-vide ???

"Bob Phillips" a écrit dans le message de news:

Les commentaires sont un problème

For w = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _
And .Range("B" & w) = Me.TextBox2.Value Then
Ligne = w
Exit For
End If
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Christine" wrote in message
news:CXSOg.92748$
Bonjour tout le monde,

Voici mon gros problème. Lorsque dans la colonne k = la valeur en A et
k >>>> la valeur en B, je sélectionne cette ligne pour apporter des
modifications
dans celle-ci. Le hic c'est k ne trouve jamais la donnée en A donc ne
trouve

pas celle en B. Pourtant tout semble OK. Où se trouve mon erreur ?

For w = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _ 'le format de la colonne A
est
en texte
And .Range("B" & w) = Me.TextBox2.Value 'le format de la
colonne B
est en numérique
Ligne = w
Exit For
End If
Next

Christine
















Avatar
Pierre Fauconnier
Question

Ton bloc With ...End With définit une feuille. Es-tu sûre que c'est la
bonne?


--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Christine" a écrit dans le message de news:
Az9Pg.2756$P%
Bonjour Pierre,

Toutes mes données sont en majuscules. Donc le problème n'est
malheureusement pas là. :((

Christine

"Pierre Fauconnier" a écrit dans le
message de news:
Salut.

C'est peut-être une question de majuscules.

Si tu n'as pas la ligne
Option Compare Text
en début de module, alors
"Pierre" <> "pierre" dans les tests de comparaison.

Donc, utilise
Option Compare Text
en début de module, ou compare
ucase(.range("a" & w) = ucase(me.textbox1)

Ok?


--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Christine" a écrit dans le message de news:
Xt%Og.102934$
Il ne trouve toujours pas la bonne ligne. Le code arrête à la dernière
ligne non-vide ???

"Bob Phillips" a écrit dans le message de news:

Les commentaires sont un problème

For w = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _
And .Range("B" & w) = Me.TextBox2.Value Then
Ligne = w
Exit For
End If
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Christine" wrote in message
news:CXSOg.92748$
Bonjour tout le monde,

Voici mon gros problème. Lorsque dans la colonne k = la valeur en A et
k >>>>> la valeur en B, je sélectionne cette ligne pour apporter des
modifications
dans celle-ci. Le hic c'est k ne trouve jamais la donnée en A donc ne
trouve

pas celle en B. Pourtant tout semble OK. Où se trouve mon erreur ?

For w = 2 To .Range("A65536").End(xlUp).Row
If .Range("A" & w) = Me.TextBox1.Text _ 'le format de la colonne A
est
en texte
And .Range("B" & w) = Me.TextBox2.Value 'le format de la
colonne B
est en numérique
Ligne = w
Exit For
End If
Next

Christine