j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est égale
à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colonne D
"AAA"
exemple
TT UU MM
je tape
PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
' Target = UCase(Target) et c est là que je sais plus car il faut
qu'il me decale de 1 a gauche
'Application.EnableEvents = True
End If
End If
End Sub
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
JB
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End If '--- If Target.Column = 2 And Target.Count = 1 Then If Target = "PA" Then Application.EnableEvents = False Target.Offset(0, 1) = "ZZZ" Target.Offset(0, 2) = "AAA" Application.EnableEvents = True End If End If End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est ég ale à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colon ne D "AAA"
exemple
TT UU MM
je tape PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False ' Target = UCase(Target) et c est là que je sais pl us car il faut qu'il me decale de 1 a gauche 'Application.EnableEvents = True End If End If End Sub
merci JB et isa pour ce code.....
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
'---
If Target.Column = 2 And Target.Count = 1 Then
If Target = "PA" Then
Application.EnableEvents = False
Target.Offset(0, 1) = "ZZZ"
Target.Offset(0, 2) = "AAA"
Application.EnableEvents = True
End If
End If
End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" <maud2...@neuf.fr> wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est ég ale
à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colon ne D
"AAA"
exemple
TT UU MM
je tape
PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
' Target = UCase(Target) et c est là que je sais pl us car il faut
qu'il me decale de 1 a gauche
'Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End If '--- If Target.Column = 2 And Target.Count = 1 Then If Target = "PA" Then Application.EnableEvents = False Target.Offset(0, 1) = "ZZZ" Target.Offset(0, 2) = "AAA" Application.EnableEvents = True End If End If End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est ég ale à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colon ne D "AAA"
exemple
TT UU MM
je tape PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False ' Target = UCase(Target) et c est là que je sais pl us car il faut qu'il me decale de 1 a gauche 'Application.EnableEvents = True End If End If End Sub
merci JB et isa pour ce code.....
maud s
merci jb pour toaide encore une fois juste une petite précision If Target.Column = 2 avec une incrémentation du 2 c est pour le nombre condition?
si oui pouvons inclure une infinie de condition?
stefane et maud
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End If '--- If Target.Column = 2 And Target.Count = 1 Then If Target = "PA" Then Application.EnableEvents = False Target.Offset(0, 1) = "ZZZ" Target.Offset(0, 2) = "AAA" Application.EnableEvents = True End If End If End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est égale à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colonne D "AAA"
exemple
TT UU MM
je tape PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False ' Target = UCase(Target) et c est là que je sais plus car il faut qu'il me decale de 1 a gauche 'Application.EnableEvents = True End If End If End Sub
merci JB et isa pour ce code.....
merci jb pour toaide encore une fois
juste une petite précision
If Target.Column = 2 avec une incrémentation du 2 c est pour le nombre
condition?
si oui pouvons inclure une infinie de condition?
stefane et maud
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
e76d6484-5575-405d-8b7c-a48e9cee21fd@v46g2000hsv.googlegroups.com...
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
'---
If Target.Column = 2 And Target.Count = 1 Then
If Target = "PA" Then
Application.EnableEvents = False
Target.Offset(0, 1) = "ZZZ"
Target.Offset(0, 2) = "AAA"
Application.EnableEvents = True
End If
End If
End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" <maud2...@neuf.fr> wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est
égale
à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colonne
D
"AAA"
exemple
TT UU MM
je tape
PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
' Target = UCase(Target) et c est là que je sais plus car il faut
qu'il me decale de 1 a gauche
'Application.EnableEvents = True
End If
End If
End Sub
merci jb pour toaide encore une fois juste une petite précision If Target.Column = 2 avec une incrémentation du 2 c est pour le nombre condition?
si oui pouvons inclure une infinie de condition?
stefane et maud
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End If '--- If Target.Column = 2 And Target.Count = 1 Then If Target = "PA" Then Application.EnableEvents = False Target.Offset(0, 1) = "ZZZ" Target.Offset(0, 2) = "AAA" Application.EnableEvents = True End If End If End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tata"
j aimerais que lorsque dans n importe quelle cellule de colonne B est égale à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et colonne D "AAA"
exemple
TT UU MM
je tape PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False ' Target = UCase(Target) et c est là que je sais plus car il faut qu'il me decale de 1 a gauche 'Application.EnableEvents = True End If End If End Sub
merci JB et isa pour ce code.....
JB
If Target.Column=2 teste si la saisie a lieu en colonne B
merci jb pour toaide encore une fois juste une petite précision If Target.Column = 2 avec une incrémentation du 2 c est pour le nom bre condition?
si oui pouvons inclure une infinie de condition?
stefane et maud
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End If '--- If Target.Column = 2 And Target.Count = 1 Then If Target = "PA" Then Application.EnableEvents = False Target.Offset(0, 1) = "ZZZ" Target.Offset(0, 2) = "AAA" Application.EnableEvents = True End If End If End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tat a"
j aimerais que lorsque dans n importe quelle cellule de colonne B est égale à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et col onne D "AAA"
exemple
TT UU MM
je tape PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False ' Target = UCase(Target) et c est là que je sais plus car il faut qu'il me decale de 1 a gauche 'Application.EnableEvents = True End If End If End Sub
merci JB et isa pour ce code.....- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
If Target.Column=2 teste si la saisie a lieu en colonne B
JB
On 3 fév, 20:43, "maud s" <maud2...@neuf.fr> wrote:
merci jb pour toaide encore une fois
juste une petite précision
If Target.Column = 2 avec une incrémentation du 2 c est pour le nom bre
condition?
si oui pouvons inclure une infinie de condition?
stefane et maud
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
e76d6484-5575-405d-8b7c-a48e9cee2...@v46g2000hsv.googlegroups.com...
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
'---
If Target.Column = 2 And Target.Count = 1 Then
If Target = "PA" Then
Application.EnableEvents = False
Target.Offset(0, 1) = "ZZZ"
Target.Offset(0, 2) = "AAA"
Application.EnableEvents = True
End If
End If
End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" <maud2...@neuf.fr> wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tat a"
j aimerais que lorsque dans n importe quelle cellule de colonne B est
égale
à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et col onne
D
"AAA"
exemple
TT UU MM
je tape
PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
' Target = UCase(Target) et c est là que je sais plus car il faut
qu'il me decale de 1 a gauche
'Application.EnableEvents = True
End If
End If
End Sub
merci JB et isa pour ce code.....- Masquer le texte des messages préc édents -
merci jb pour toaide encore une fois juste une petite précision If Target.Column = 2 avec une incrémentation du 2 c est pour le nom bre condition?
si oui pouvons inclure une infinie de condition?
stefane et maud
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End If '--- If Target.Column = 2 And Target.Count = 1 Then If Target = "PA" Then Application.EnableEvents = False Target.Offset(0, 1) = "ZZZ" Target.Offset(0, 2) = "AAA" Application.EnableEvents = True End If End If End Sub
http://cjoint.com/?cduxmMCSxW
JB
On 3 fév, 20:06, "maud s" wrote:
Bonjour,
j ai un tableau dans le lekel il est ecrit plein de choses........
jusque là je maitrise.....lol
le truc c est que dans un private sub mis dans une feuille nommée "tat a"
j aimerais que lorsque dans n importe quelle cellule de colonne B est égale à "PA" la cellule de la meme ligne dans colonne C devient "ZZZ" et col onne D "AAA"
exemple
TT UU MM
je tape PA a la place de TT et hop le private sub me transforme comme suivant
PA ZZZ AAA
merci d avance
stefane et maud
ce code permet de lancer la procedure et de mettre en maj une cellule Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target <> "" Then Application.EnableEvents = False ' Target = UCase(Target) et c est là que je sais plus car il faut qu'il me decale de 1 a gauche 'Application.EnableEvents = True End If End If End Sub
merci JB et isa pour ce code.....- Masquer le texte des messages préc édents -