Copie d'un texte à la suite d'un autre par double-clic sur une cellule

Bonjour à tous,

J'aurais besoin qu'on aide à concevoir une macro qui me permettrait de copier le texte " KVA" à la suite d'une entrée de données présente dans la cellule "D37" à l'aide d'un double-clic sur la cellule "A37".

Par exemple, si la valeur 100 est présente dans la cellule "D37", un double-clic sur la cellule "A37" copiera le texte " KVA" à la suite de cette valeur. Le résultat final dans la cellule "D37" sera donc "100 KVA".

Merci à l'avance pour votre précieuse collaboration,

Renaud D.

Bonjour,

C'est pas un peu compliquer le shimiliblick ? surtout si le double clic est oublié en colonne A ... alors la colonne D sera fausse.

Pourquoi ne pas utiliser une colonne E pour récupérer le résultat souhaité.

En E37 ---> =si(D37<>"";concatener(D37;" KVA");"")

Bonjour Renaud Dugas,

Si cette cellule D37 est uniquement destinée à recevoir des nombres qui présentent des "KVA". Pourquoi ne pas passer par un format nombre personnalisé.

Ou existe-t'il d'autres formats que KVA dans plusieurs lignes de la colonne A?

A suivre...

Bonjour X Cellus,

La cellule "D37" pourra contenir diverses valeurs donc le format pourra être différent de " KVA".

Renaud Dugas a écrit :

Bonjour X Cellus,

La cellule "D37" pourra contenir diverses valeurs donc le format pourra être différent de " KVA".

Dans ce cas raison de plus ? pourquoi demander une macro qui ne fera qu'ajouter KVA si d'autres valeur sont possibles

Je veux simplement diminuer les entrées données au clavier, en automatisant, l'entrée de données "KVA" à la suite de la valeur présente dans la cellule D37. Je pourrais appliquer le même principe, par exemple, pour entrer " BTU/H" à la suite de la valeur présente dans la cellule D37 en double-cliquant sur la cellule A38. Comme j'ai à entrer diverses valeurs numériques dans la cellule D37 avec des extensions différentes, le double-clic sur certaines cellules associées à ces extensions simplifiera l'entrée de données.

Bonjour Renaud Dugas, Xmenpl,

Suite à ton dernier message, voir ci-dessous quelques lignes à placer dans le code de ta feuille.

Private Sub Worksheet_Change(ByVal Target as Range)
If isNumeric(Left(Target,1) Then
Application.EnableEvents = False
  if instr(1,Target,"KVA")=0 then Target=Replace(Target,"K","KVA")
  if instr(1,Target,"BTU/H")=0 then Target=Replace(Target,"B","BTU/H")
Application.EnableEvents = True
End if
End sub

Dès que tu débutes ta cellule par un chiffre ou nombre que tu fais suivre (espace acceptée) par une lettre correspondante au texte souhaitée.

Puis que tu valides cette saisie. Elle sera transformée par le texte complet. Aussi bien en première saisie qu'en ressaisie d'une lettre différente.

Si deux textes utilisent la même lettre (ex: K) alors possibilité d'utiliser la lettre minuscule et majuscule de cette lettre pour l'insertion automatique du texte.

Ex: K pour KVA et k pour kwh.

Bons tests, bonne continuation.

Merci beaucoup X Cellus pour ton aide.

Sincères salutations,

Renaud D.

Bonjour toutes et tous

Mercis à X Cellus et Xmempl

une fermeture d'apostrophe -;) à la 2ème ligne manquante

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Left(Target, 1)) Then
Application.EnableEvents = False
  If InStr(1, Target, "KVA") = 0 Then Target = Replace(Target, "K", "KVA")
  If InStr(1, Target, "BTU/H") = 0 Then Target = Replace(Target, "B", "BTU/H")
Application.EnableEvents = True
End If
End Sub

crdlt,

André

Merci Andre13

Salutations

Renaud D.