Insertion de chiffres

Kazay

XLDnaute Nouveau
Bonjour

Est il possible et si oui , quel est la formule pour associer un ou plusieurs chiffres d'une cellule A1 et d'une autre cellule B1

Exemple :
A1 contient - 1 2 3
B1 contient - 4 5 6

si cela est possible les associer dans la cellule C1 - 123 456
Quel serai la formule ?

Merci de votre information .
 

Guido

XLDnaute Accro
Re : Insertion de chiffres

Bonjour le forum

Sur le meme principe de Kazay

Est il possible et si oui , quel est la formule pour associer un ou plusieurs chiffres d'une cellule A1 et cellule B1 et cellule C1

Exemple :
A1 contient - 1 2 3
B1 contient - 4 5 6
C1 contient - 7 8 9

si cela est possible les associer dans la cellule D1 - 123 456 789

Quel serai la formule ?


Merci

Guido
 

Dull

XLDnaute Barbatruc
Re : Insertion de chiffres

Salut Guido, le Forum

Sur une idée de PierreJean :)


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'By pierrejean
Application.ScreenUpdating = False
For n = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & n) <> "" And Range("A" & n) = [A1] Then
  x = Split(Trim(Range("A" & n)), " ")
  For m = 0 To UBound(x)
    Range("D" & n) = (Range("A" & n) & " " & Range("B" & n) & " " & Range("C" & n)) * 1
 Next m
End If
Next n
Application.ScreenUpdating = True
End Sub
A Coller dans le Module de la Feuille

Bonne Journée
 

Pièces jointes

  • GuidoV1.zip
    7.5 KB · Affichages: 25
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 652
Messages
2 090 542
Membres
104 572
dernier inscrit
saumech