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
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
Daniel.C
Bonsoir. Il dit quoi, le message d'erreur ? Cordialement. Daniel "Boby Lapointe" <Boby a écrit dans le 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
Bonsoir.
Il dit quoi, le message d'erreur ?
Cordialement.
Daniel
"Boby Lapointe" <Boby Lapointe@discussions.microsoft.com> a écrit dans le
message de news: EEAA7EA1-B27D-4F91-9DDE-D6E4AFE39DF3@microsoft.com...
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
Bonsoir. Il dit quoi, le message d'erreur ? Cordialement. Daniel "Boby Lapointe" <Boby a écrit dans le 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
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" <Boby a écrit dans le 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
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" <Boby Lapointe@discussions.microsoft.com> a écrit dans le
message de news: EEAA7EA1-B27D-4F91-9DDE-D6E4AFE39DF3@microsoft.com...
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
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" <Boby a écrit dans le 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
A mon avis, c'est le "And" qu'il aime pas. Daniel "Boby Lapointe" a écrit dans le 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" <Boby a écrit dans le 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
A mon avis, c'est le "And" qu'il aime pas.
Daniel
"Boby Lapointe" <BobyLapointe@discussions.microsoft.com> a écrit dans le
message de news: 1EEB7A61-62B9-47D3-8ADA-AED5DDCEF3FB@microsoft.com...
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" <Boby Lapointe@discussions.microsoft.com> a écrit dans le
message de news: EEAA7EA1-B27D-4F91-9DDE-D6E4AFE39DF3@microsoft.com...
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
A mon avis, c'est le "And" qu'il aime pas. Daniel "Boby Lapointe" a écrit dans le 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" <Boby a écrit dans le 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
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" a écrit dans le 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" <Boby a écrit dans le 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
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" <BobyLapointe@discussions.microsoft.com> a écrit dans le
message de news: 1EEB7A61-62B9-47D3-8ADA-AED5DDCEF3FB@microsoft.com...
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" <Boby Lapointe@discussions.microsoft.com> a écrit dans le
message de news: EEAA7EA1-B27D-4F91-9DDE-D6E4AFE39DF3@microsoft.com...
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
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" a écrit dans le 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" <Boby a écrit dans le 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