Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ligne de macro erronée

ligne de macro erronée

6 réponses
Avatar
AnB
Bonsoir
j'ai dans une macro cette demande qui me donne la réf de la cellule
Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
Article", Type:=8)

étrangement dans la boite de dialogue la réf est sous cette forme $F$1:$F$1
j'ai fait l'essai sur une autre cellule f4 par ex et j'ai ceci :$F$4
pourquoi ? F1 n'est pas fusionné

plus loin j'ai ceci , art = cell.Offset(0, 2).Select , qui est erroné car
j'ai le message d'erreur "erreur d'exécution '424' objet requis

si vous pouvez m'éclairer !!
je vous remercie par avance
Ptck
Signaler un problème avec ce contenu

6 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
Youky
Bonjour,
Cells(art.Row, art.Column + 2).Select

au lieu de....art = cell.Offset(0, 2).Select

Vérifier tous les formats de la ligne1 car là je sèche.
J'ai pas réussit à reproduire
Youky
Avatar
AnB
Merci

mais çà ne marche pas

je choisi une cellule pour prendre sa valeur avant de reboucler je veux
déplacer de 2 colonnes vers la doite pour
ensuite prendre la nouvelle valeur.

"Youky" a écrit dans le message de news:
O%
Bonjour,
Cells(art.Row, art.Column + 2).Select

au lieu de....art = cell.Offset(0, 2).Select

Vérifier tous les formats de la ligne1 car là je sèche.
J'ai pas réussit à reproduire
Youky




Avatar
Youky
Alors comme cela.........
Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
Article ", Type:=8)
MsgBox Cells(art.Row, art.Column + 2).Value
Youky

"AnB" a écrit dans le message de news:
ekXK$
Merci

mais çà ne marche pas

je choisi une cellule pour prendre sa valeur avant de reboucler je veux
déplacer de 2 colonnes vers la doite pour
ensuite prendre la nouvelle valeur.

"Youky" a écrit dans le message de news:
O%
Bonjour,
Cells(art.Row, art.Column + 2).Select

au lieu de....art = cell.Offset(0, 2).Select

Vérifier tous les formats de la ligne1 car là je sèche.
J'ai pas réussit à reproduire
Youky








Avatar
Youky
Et pour éviter les bugs, quelques lignes en plus..

On Error Resume Next
Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
Article ", Type:=8)
If Err > 0 Then Exit Sub
MsgBox Cells(art.Row, art.Column + 2).Value

"Youky" a écrit dans le message de news:
%
Alors comme cela.........
Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
Article ", Type:=8)
MsgBox Cells(art.Row, art.Column + 2).Value
Youky

"AnB" a écrit dans le message de news:
ekXK$
Merci

mais çà ne marche pas

je choisi une cellule pour prendre sa valeur avant de reboucler je veux
déplacer de 2 colonnes vers la doite pour
ensuite prendre la nouvelle valeur.

"Youky" a écrit dans le message de news:
O%
Bonjour,
Cells(art.Row, art.Column + 2).Select

au lieu de....art = cell.Offset(0, 2).Select

Vérifier tous les formats de la ligne1 car là je sèche.
J'ai pas réussit à reproduire
Youky












Avatar
Papyjac
Bonjour Anb et Youky

Quand j'utilises cette méthode INPUTBOX pour sélectionner, je mets toujours
le paramétre Defaut, par exemple
Defaut:=selection.address(referencestyle:=xlR1C1)
--
Papyjac


"Youky" a écrit :

Et pour éviter les bugs, quelques lignes en plus..

On Error Resume Next
Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
Article ", Type:=8)
If Err > 0 Then Exit Sub
MsgBox Cells(art.Row, art.Column + 2).Value

"Youky" a écrit dans le message de news:
%
> Alors comme cela.........
> Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
> Article ", Type:=8)
> MsgBox Cells(art.Row, art.Column + 2).Value
> Youky
>
> "AnB" a écrit dans le message de news:
> ekXK$
>> Merci
>>
>> mais çà ne marche pas
>>
>> je choisi une cellule pour prendre sa valeur avant de reboucler je veux
>> déplacer de 2 colonnes vers la doite pour
>> ensuite prendre la nouvelle valeur.
>>
>> "Youky" a écrit dans le message de news:
>> O%
>>> Bonjour,
>>> Cells(art.Row, art.Column + 2).Select
>>>
>>> au lieu de....art = cell.Offset(0, 2).Select
>>>
>>> Vérifier tous les formats de la ligne1 car là je sèche.
>>> J'ai pas réussit à reproduire
>>> Youky
>>>
>>>
>>
>>
>
>





Avatar
AnB
je l'ai mis en dure cqd [f1] mais je crois que c'est parceque il y a les
dollars

je vais essayer demain
merci encore

"Papyjac" a écrit dans le message de
news:
Bonjour Anb et Youky

Quand j'utilises cette méthode INPUTBOX pour sélectionner, je mets
toujours
le paramétre Defaut, par exemple
Defaut:=selection.address(referencestyle:=xlR1C1)
--
Papyjac


"Youky" a écrit :

Et pour éviter les bugs, quelques lignes en plus..

On Error Resume Next
Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
Article ", Type:=8)
If Err > 0 Then Exit Sub
MsgBox Cells(art.Row, art.Column + 2).Value

"Youky" a écrit dans le message de news:
%
> Alors comme cela.........
> Set art = Application.InputBox(prompt:="Sélectionner la cellule du 1er
> Article ", Type:=8)
> MsgBox Cells(art.Row, art.Column + 2).Value
> Youky
>
> "AnB" a écrit dans le message de news:
> ekXK$
>> Merci
>>
>> mais çà ne marche pas
>>
>> je choisi une cellule pour prendre sa valeur avant de reboucler je
>> veux
>> déplacer de 2 colonnes vers la doite pour
>> ensuite prendre la nouvelle valeur.
>>
>> "Youky" a écrit dans le message de
>> news:
>> O%
>>> Bonjour,
>>> Cells(art.Row, art.Column + 2).Select
>>>
>>> au lieu de....art = cell.Offset(0, 2).Select
>>>
>>> Vérifier tous les formats de la ligne1 car là je sèche.
>>> J'ai pas réussit à reproduire
>>> Youky
>>>
>>>
>>
>>
>
>