MODIF CELLULE AUTO condition

Le
maud s
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..
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
JB
Le #5148591
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"
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
Le #5148571
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"
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"
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
Le #5148521
If Target.Column=2 teste si la saisie a lieu en colonne B

http://boisgontierjacques.free.fr/pages_site/tests.htm

JB
On 3 fév, 20:43, "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 nom bre
condition?

si oui pouvons inclure une infinie de condition?

stefane et maud

"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"


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 -



Publicité
Poster une réponse
Anonyme