Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel sos...remplacement de caractères

sos...remplacement de caractères

12 réponses
Avatar
charly P
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la meme
colonne
CharlyP
Signaler un problème avec ce contenu

10 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
1 2
Avatar
MichDenis
TaPlage = "P"
OU

Range("A1:K125") = "P"


Ou tu peux copier cette procédure dans le module feuille où l'action se déroule :
Si tu entre P dans A1, la plage B5:G75 aura aussi un P.
à toi d'adapter la macro pour qu'elle réponde à ton environnement.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Application.EnableEvents = False
If LCase(Target.Value) = "p" Then
Range("B5:G75") = "P"
Else
Range("B5:G75") = ""
End If
Application.EnableEvents = True
End If

End Sub




"charly P" a écrit dans le message de news:
45b76a2b$0$27390$
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la meme
colonne
CharlyP
Avatar
JB
Bonjour,


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And UCase(Target) = "P" Then
Application.EnableEvents = False
Target.Resize(700, 1) = "PO"
Application.EnableEvents = True
End If
End Sub

JB

On 24 jan, 15:16, "charly P"
wrote:
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la me me
colonne
CharlyP


Avatar
charly P
euh merci de la réponse cependant en fait je crois que je ne me suis pas
bien exprimé dans la question il faut comprendre que chaque fois que je
rentre un P ou un p dans une cellule de la colonne A et bien cela mette
automatiquement PO
Y aurait-il une formule que je placerai en A1 et copierai jusqu'en A700 par
exemple?
CharlyP




"MichDenis" a écrit dans le message de news:
%
TaPlage = "P"
OU

Range("A1:K125") = "P"


Ou tu peux copier cette procédure dans le module feuille où l'action se
déroule :
Si tu entre P dans A1, la plage B5:G75 aura aussi un P.
à toi d'adapter la macro pour qu'elle réponde à ton environnement.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Application.EnableEvents = False
If LCase(Target.Value) = "p" Then
Range("B5:G75") = "P"
Else
Range("B5:G75") = ""
End If
Application.EnableEvents = True
End If

End Sub




"charly P" a écrit dans le
message de news:
45b76a2b$0$27390$
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la meme
colonne
CharlyP





Avatar
JB
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:A700], Target) Is Nothing Then
Application.EnableEvents = False
Target = "PO"
Application.EnableEvents = True
End If
End Sub

http://cjoint.com/?byqbY038tn

JB


On 24 jan, 15:16, "charly P"
wrote:
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la me me
colonne
CharlyP


Avatar
JLuc
charly P avait soumis l'idée :
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la meme
colonne
CharlyP


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And UCase(Target) = "P" Then
Application.EnableEvents = False
Target.Value = "PO"
Application.EnableEvents = True
End If
End Sub

--
JLuc

Avatar
charly P
Merci jluc cependant comment ecrire une nouvelle macro sur cette feuille qui
contient deja 3code (fenetre differente
CharlyP
"JLuc" a écrit dans le message de news:

charly P avait soumis l'idée :
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la meme
colonne
CharlyP


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And UCase(Target) = "P" Then
Application.EnableEvents = False
Target.Value = "PO"
Application.EnableEvents = True
End If
End Sub

--
JLuc





Avatar
JLuc
*Bonjour charly P*,
Colle nous le code du :
Private Sub Worksheet_Change(ByVal Target As Range)
pour que nous t'aidions à le modifié

Merci jluc cependant comment ecrire une nouvelle macro sur cette feuille qui
contient deja 3code (fenetre differente
CharlyP
"JLuc" a écrit dans le message de news:

charly P avait soumis l'idée :
Bonjour,
voilà !
je souhaite que lorsque je tape un P ou p dans une cellule et bien il
s'inscrive automatiquement PO et cela repeté dans 700 cellules de la meme
colonne
CharlyP


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And UCase(Target) = "P" Then
Application.EnableEvents = False
Target.Value = "PO"
Application.EnableEvents = True
End If
End Sub

-- JLuc





--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Avatar
charly P
j'ai dans 1 fenetre
Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column = 11 Then
If UCase(Target.Value) = "OK" Then
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
ElseIf Target.Column = 1 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If
ElseIf Target.Column = 14 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If

End If
End Sub


ensuite dans une autre
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[A1] = Ctr + [A1]
Ctr = [A1]
Application.EnableEvents = True
End If
End Sub

et enfin dans une autre
Option Explicit

VOilà
"JLuc" a écrit dans le message de news:

*Bonjour charly P*,
Colle nous le code du :
Private Sub Worksheet_Change(ByVal Target As Range)
pour que nous t'aidions à le modifié



Avatar
JLuc
*ReBonjour charly P*,
C'est dans laquelle que tu veux inserer ce code ?


j'ai dans 1 fenetre
Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column = 11 Then
If UCase(Target.Value) = "OK" Then
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
ElseIf Target.Column = 1 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If
ElseIf Target.Column = 14 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If

End If
End Sub


ensuite dans une autre
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[A1] = Ctr + [A1]
Ctr = [A1]
Application.EnableEvents = True
End If
End Sub

et enfin dans une autre
Option Explicit

VOilà
"JLuc" a écrit dans le message de news:

*Bonjour charly P*,
Colle nous le code du :
Private Sub Worksheet_Change(ByVal Target As Range)
pour que nous t'aidions à le modifié



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O


Avatar
charly P
ben peut-etre dans celle ou il n'y a que Options Explicit?



"JLuc" a écrit dans le message de news:

*ReBonjour charly P*,
C'est dans laquelle que tu veux inserer ce code ?


j'ai dans 1 fenetre
Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column = 11 Then
If UCase(Target.Value) = "OK" Then
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
ElseIf Target.Column = 1 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If
ElseIf Target.Column = 14 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If

End If
End Sub


ensuite dans une autre
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[A1] = Ctr + [A1]
Ctr = [A1]
Application.EnableEvents = True
End If
End Sub

et enfin dans une autre
Option Explicit

VOilà
"JLuc" a écrit dans le message de news:

*Bonjour charly P*,
Colle nous le code du :
Private Sub Worksheet_Change(ByVal Target As Range)
pour que nous t'aidions à le modifié



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






1 2