Forcer la majuscule dans une cellule
Bonjour,
Je souhaite sur quelques cellules forcer la majuscule, mais je possède déjà des codes et une incompatibilité peut être m’empêche de mettre en MAJUSCULE.
Je joint une capture sur laquelle se trouvent deux codes qui fonctionnent très bien je voudrais ajouter le code suivant que j'ai essayé sur un classeur neutre et ce code fonctionne
je ne connais pas le langage VBA je vous remercie pour votre indulgence
Private Sub Worksheet_Change(ByVal Target As Range)
' Met en majuscules les cellules ciblées
Dim isect As Range
Set isect = Application.Intersect(Target, _
Application.Union(Range("A2"), Range("F11:F20")))
If isect Is Nothing Or IsEmpty(Target) Then
Exit Sub
End If
' Les cellules modifiées appartenant aux groupes de cellules cible sont mises en majuscules
Dim C As Variant ' C = cellule modifiée
For Each C In isect
C.Value = UCase(C.Value)
Next C
End Sub
Bonsoir
Est ce que quelqu'un peut me répondre...
par avance merci
cordialement
mibri
Salut mibri,
... avec des explications un peu plus détaillées quant aux critères de mise en majuscule!
A+
Bonjour,
Et si tu disais plus précisément quel est ta difficulté ?
Si c'est parce que les plages sont différentes :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, plage1) Is Nothing Then
'traitement 1
' ...
End If
If Not Intersect(Target, plage2) Is Nothing Then
'traitement 2
' ...
End If
End Suberic
Bonjour
Les codes qui figurent sur la capture fonctionnent très bien. Je souhaite ajouter à ces codes, un code que j'ai trouvé permettant la saisi automatique en majuscule sur des cellules désignées...
Private Sub Worksheet_Change(ByVal Target As Range)
' Met en majuscules les cellules ciblées
Dim isect As Range
Set isect = Application.Intersect(Target, _
Application.Union(Range("A2"), Range("F11:F20")))
If isect Is Nothing Or IsEmpty(Target) Then
Exit Sub
End If
' Les cellules modifiées appartenant aux groupes de cellules cible sont mises en majuscules
Dim C As Variant ' C = cellule modifiée
For Each C In isect
C.Value = UCase(C.Value)
Next C
End Sub
J'ai essayé ce code seul sur un classeur neutre il fonctionne et permet la saisie automatique en majuscule.
Lorsque j'ajoute ce code à la suite des deux autres mes cellules restent en minuscule.
Je pense alors qu'il doit y avoir une incompatibilité d'écriture ..........ou alors compte tenu des codes d'origine, il y a t il une autre écriture possible ???
merci
cordialement, mibri
Faudrait peut-être lire les réponses en entier...
Je t'ai indiqué comment faire.
eric
Merci, mais je n'ai pas compris et je ne sais pas comment faire.....
cdt, mibri
Salut mibri, Eriic,
mibri, tant qu'à poster une réponse, donne-nous des indications claires et précises sur ces critères ET un fichier, bon Dieu!
Arrête de tourner autour du pot!
A+
Veuillez m'excuser, il est vrai que j'ai tardé.....ci joint fichier
merci
Salut mibri,
c'est déjà plus concret!
Le code est... particulier! Il y avait deux Worksheet_Change() !!!!
A quoi sert ceci?
mem = Target.Address(0, 0)
On Error Resume Next
For Each C In Array("D3", "D6", "D9", "D12", "I16", "I18", "I20", "I26", "I28", "G32", "H32", "I32", "J32", "N32", "G34", "H34", "I34", "J34", "N34", "G36", "H36", "I36", "J36", "N36", "G38", "H38", "I38", "J38", "N38", "G40", "H40", "I40", "J40", "N40")
If pass Then Range(C).Select: pass = 0: Exit Sub
i = i + 1
If mem = C Then: pass = 1: GoTo 1
1 Next CTa macro majuscule fonctionne bien mais es-tu certain de la pertinence des cellules-cible?
A+
Ce code me permet de ne pas utiliser la flèche pour aller à la cellule suivante, actuellement j'y passe automatiquement après avoir fait "entrée"
Effectivement je n'ai pas adapté le code à mon fichier, je viens de corriger ...(fichier joint)
A quoi sert Range A2 ???
merci, mibri
Bonjour CURULIS57, est ce que mon projet est réalisable.??........merci
cdt mibri
Bonjour,
J'ai un autre projet qui s'ajoute à celui que j ai demandé, est ce que je pourrais enregistrer automatiquement la feuille de classeur que j'ai transmis (fichier) dans un sous dossier. Cet enregistrement devra comporter le nom d'un client qui figure sur la feuille en D6
merci pour votre aide
cordialement
mibri
Salut Mibri,
tout projet est réalisable par beaucoup d'entre nous ici (peut-être pas par moi, d'ailleurs) mais ton boulot est de nous expliquer ton projet de façon claire, détaillée et, surtout, illustré par un fichier auquel se référer pour l'enchaînement des diverses actions souhaitées.
Dans ce cas-ci, sauf erreur, à part mettre des majuscules dans des cellules inappropriées, je n'ai pas lu quelque chose de concret!
A+
Bonjour CURULIS57, et merci pour ta réponse
Je reprends :
Le fichier transmis s'exécute avec deux codes :
- l'envoie par mail
- l'adressage vers des cellules définies (D3:D9) en sautant les cellules vides
- cette feuille comporte également un troisième code (peut être inapproprié car recopié sur le net) qui devrait servir à la mise en majuscule automatique. Si tu le souhaites , peut être supprimer ce code (à moins qu'il soit adapté...??) et .......je te laisse le soins d'y réfléchir
Je souhaiterais ensuite la création d'un bouton qui serait placé en V2 et qui permettrait l'enregistrement du fichier (classeur prenant en charge les macros) dans un sous dossier (ma difficulté est que je n'ai pas trouvé comment définir le chemin du sous dossier).
Voilà est ce que c'est plus clair pour toi ? je te remercie pour l'aide que tu m'apportes..
mibri
Bonjour,
Quelqu'un peut il me répondre ???
par avance merci
cordialement
mibri
Bonjour Mibri,
désolé mais je ne comprends absolument rien à ce que tu veux!
Aucune indication claire, précise, complète! De vagues idées
- l'adressage vers des cellules définies (D3:D9) en sautant les cellules vides ?
? C'est-à-dire... ??? - mise en majuscule automatique... de quelles données, dans quelles cellules ???
- dans un sous dossier (ma difficulté est que je n'ai pas trouvé comment définir le chemin du sous dossier)... si tu ne sais pas définir tes besoins, comment veux-tu que nous les réalisions ???
Apprends à communiquer! Nous ne sommes pas devins!
A+
pour moi c'est clair merci aurevoir