OVH Cloud OVH Cloud

concaténer?

3 réponses
Avatar
amt
Bonjour à tous

mon petit problème:
dans une colonne j'ai des nombres (une centaine de cellules les unes en
dessous des autres)
pour dess raisons liées à notre procédé certains de ces nombres doivent etre
précédés de la lettre P
je voudrais que ce soit fait automatiquement en sélectionnant les cellules
concernées et en cliquant sur un bouton.

Merci de vos conseils

3 réponses

Avatar
AV
Le problème est que tu ne donnes pas de précisions sur "...certains de ces
nombres."
Exemple à adapter :
Si, dans la sélection, les nombres sont = 100 ajouter "P" devant (résultat :
P1000)

Sub zzz_Concat()
Selection.AutoFilter Field:=1, Criteria1:="0", Operator:=xlAnd
For Each c In Selection.SpecialCells(xlCellTypeVisible)
c.Value = "P" & "100"
Next
Selection.AutoFilter
End Sub

AV

"amt" a écrit dans le message news:
OROc#
Bonjour à tous

mon petit problème:
dans une colonne j'ai des nombres (une centaine de cellules les unes en
dessous des autres)
pour dess raisons liées à notre procédé certains de ces nombres doivent etre
précédés de la lettre P
je voudrais que ce soit fait automatiquement en sélectionnant les cellules
concernées et en cliquant sur un bouton.

Merci de vos conseils




Avatar
Denis Michon
Bonjour Amt,


Tu sélectionnes toutes les cellules désirées et tu appelles la macro :

'--------------
Sub Concat()

For Each c In Selection
c.Value = "P" & c
Next

End Sub
'--------------


Salutations!



"amt" a écrit dans le message de news:OROc%
Bonjour à tous

mon petit problème:
dans une colonne j'ai des nombres (une centaine de cellules les unes en
dessous des autres)
pour dess raisons liées à notre procédé certains de ces nombres doivent etre
précédés de la lettre P
je voudrais que ce soit fait automatiquement en sélectionnant les cellules
concernées et en cliquant sur un bouton.

Merci de vos conseils
Avatar
isabelle
Bonjour Atm,

voilà,

Sub Macro1()
For Each c In Selection
c = "P" & c
Next
End Sub

si tu associe cette macro à un bouton de la boites à outils contrôle,
n'oublie pas de mettre la propriété du bouton, TakeFocusOnClick à false

isabelle


Bonjour à tous

mon petit problème:
dans une colonne j'ai des nombres (une centaine de cellules les unes en
dessous des autres)
pour dess raisons liées à notre procédé certains de ces nombres doivent etre
précédés de la lettre P
je voudrais que ce soit fait automatiquement en sélectionnant les cellules
concernées et en cliquant sur un bouton.

Merci de vos conseils