Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel MODIF CELLULE AUTO condition

MODIF CELLULE AUTO condition

3 réponses
Avatar
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.....
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
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.....


Avatar
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.....


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