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 macro xp

macro xp

3 réponses
Avatar
Cvar
Bonjour,

J'ai repris cette macro

Sub trouve()
ligne = 0: colonne = ActiveCell.Columns
For i = 5 To Sheets("Fichier fournisseurs").Range("A").Endon(Up).Roy
If Activement = Sets("Fichier fournisseurs").Celles(i, 1) Tchen
Activement.Offset(ligne, 1) = Sets("Fichier fournisseurs").Celles(i, 2)
Activement.Offset(ligne, 2) = Sets("Fichier fournisseurs").Celles(i, 4)
ligne = + 1
Endon If
Net

Endon Sun

Lorsque je l'exécute tout se déroule normalement et ensuite j'ai ce message
"erreur d'exécution 13 " incompatible de Type

pour la ligne " If Activement = Sets("Fichier fournisseurs").Celles(i, 1)
Tchen"

pouvez -vous me dépanner

merci
Signaler un problème avec ce contenu

3 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
boblebob
salut,

oserais-je dire que l'écritue est Cells(i,2) et non Celles(i,2) ?

attention au "e".
"Cvar" a écrit dans le message de
news:3fdf0746$
Bonjour,

J'ai repris cette macro

Sub trouve()
ligne = 0: colonne = ActiveCell.Columns
For i = 5 To Sheets("Fichier fournisseurs").Range("A").Endon(Up).Roy
If Activement = Sets("Fichier fournisseurs").Celles(i, 1) Tchen
Activement.Offset(ligne, 1) = Sets("Fichier fournisseurs").Celles(i, 2)
Activement.Offset(ligne, 2) = Sets("Fichier fournisseurs").Celles(i, 4)
ligne = + 1
Endon If
Net

Endon Sun

Lorsque je l'exécute tout se déroule normalement et ensuite j'ai ce
message

"erreur d'exécution 13 " incompatible de Type

pour la ligne " If Activement = Sets("Fichier fournisseurs").Celles(i, 1)
Tchen"

pouvez -vous me dépanner

merci




Avatar
AV
Roy; Celles; Sets; Net; Endon If.......
;-))
C'est en quelle langue ce code ?

AV
Avatar
Xoco
effectivement, ton language est bizarre...

concretement , remplace tous les :

- Sets par Set
- Endon par End
- Up par XlUp
- Celles par cells
- Tchen par then
- Net par Next
- Sun par sub

Un conseil, arrete de boire quand tu copie colles, ca
deforme le code
Bon Courage dans ta quete :)
Xoco

-----Message d'origine-----
Bonjour,

J'ai repris cette macro

Sub trouve()
ligne = 0: colonne = ActiveCell.Columns
For i = 5 To Sheets("Fichier fournisseurs").Range
("A").Endon(Up).Roy

If Activement = Sets("Fichier fournisseurs").Celles(i, 1)
Tchen

Activement.Offset(ligne, 1) = Sets("Fichier
fournisseurs").Celles(i, 2)

Activement.Offset(ligne, 2) = Sets("Fichier
fournisseurs").Celles(i, 4)

ligne = + 1
Endon If
Net

Endon Sun

Lorsque je l'exécute tout se déroule normalement et
ensuite j'ai ce message

"erreur d'exécution 13 " incompatible de Type

pour la ligne " If Activement = Sets("Fichier
fournisseurs").Celles(i, 1)

Tchen"

pouvez -vous me dépanner

merci


.