Erreur macro

Le
Boby Lapointe
Bonjour,
Pouvez-vous m'aider, j'ai un petit souci avec le code suivant :

If Not IsEmpty(Sheets("CAT1").Cells(x, 2).Value) Then
Sheets("Planning").Range(Range(Cells(y, 3), Cells(y, 4)).Address).Value =
Sheets("CAT1").Range(Range(Cells(x, 2), Cells(x, 3)).Address).Value And _
Sheets("Planning").Range(y, 2).Value = Sheets("CAT1").Range(x,
1).Value: y = y + 1

Merci d'avance

Bob
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5073831
Bonsoir.
Il dit quoi, le message d'erreur ?
Cordialement.
Daniel
"Boby Lapointe" message de news:
Bonjour,
Pouvez-vous m'aider, j'ai un petit souci avec le code suivant :

If Not IsEmpty(Sheets("CAT1").Cells(x, 2).Value) Then
Sheets("Planning").Range(Range(Cells(y, 3), Cells(y, 4)).Address).Value > Sheets("CAT1").Range(Range(Cells(x, 2), Cells(x, 3)).Address).Value And _
Sheets("Planning").Range(y, 2).Value = Sheets("CAT1").Range(x,
1).Value: y = y + 1

Merci d'avance

Bob


Boby Lapointe
Le #5073731
Bonsoir,

Le message d'erreur est le suivant :"Erreur définie par l'application ou par
l'objet"
Je pense que c'est un pb de syntaxe dans la formulation après le And.
Cdlt
Bob


Bonsoir.
Il dit quoi, le message d'erreur ?
Cordialement.
Daniel
"Boby Lapointe" message de news:
Bonjour,
Pouvez-vous m'aider, j'ai un petit souci avec le code suivant :

If Not IsEmpty(Sheets("CAT1").Cells(x, 2).Value) Then
Sheets("Planning").Range(Range(Cells(y, 3), Cells(y, 4)).Address).Value > > Sheets("CAT1").Range(Range(Cells(x, 2), Cells(x, 3)).Address).Value And _
Sheets("Planning").Range(y, 2).Value = Sheets("CAT1").Range(x,
1).Value: y = y + 1

Merci d'avance

Bob







Daniel.C
Le #5073701
A mon avis, c'est le "And" qu'il aime pas.
Daniel
"Boby Lapointe" message de news:

Bonsoir,

Le message d'erreur est le suivant :"Erreur définie par l'application ou
par
l'objet"
Je pense que c'est un pb de syntaxe dans la formulation après le And.
Cdlt
Bob


Bonsoir.
Il dit quoi, le message d'erreur ?
Cordialement.
Daniel
"Boby Lapointe" message de news:
Bonjour,
Pouvez-vous m'aider, j'ai un petit souci avec le code suivant :

If Not IsEmpty(Sheets("CAT1").Cells(x, 2).Value) Then
Sheets("Planning").Range(Range(Cells(y, 3), Cells(y, 4)).Address).Value
Sheets("CAT1").Range(Range(Cells(x, 2), Cells(x, 3)).Address).Value And
_



Sheets("Planning").Range(y, 2).Value =
Sheets("CAT1").Range(x,
1).Value: y = y + 1

Merci d'avance

Bob












Daniel.C
Le #5073691
Et aussi :
Sheets("Planning").Cells(y, 2).Value = Sheets("CAT1").Cells(x, 1).Value
au lieu de :
Sheets("Planning").Cells(y, 2).Range= Sheets("CAT1").Range(x, 1).Value
Daniel
"Boby Lapointe" message de news:

Bonsoir,

Le message d'erreur est le suivant :"Erreur définie par l'application ou
par
l'objet"
Je pense que c'est un pb de syntaxe dans la formulation après le And.
Cdlt
Bob


Bonsoir.
Il dit quoi, le message d'erreur ?
Cordialement.
Daniel
"Boby Lapointe" message de news:
Bonjour,
Pouvez-vous m'aider, j'ai un petit souci avec le code suivant :

If Not IsEmpty(Sheets("CAT1").Cells(x, 2).Value) Then
Sheets("Planning").Range(Range(Cells(y, 3), Cells(y, 4)).Address).Value
Sheets("CAT1").Range(Range(Cells(x, 2), Cells(x, 3)).Address).Value And
_



Sheets("Planning").Range(y, 2).Value =
Sheets("CAT1").Range(x,
1).Value: y = y + 1

Merci d'avance

Bob












Publicité
Poster une réponse
Anonyme