Macro pour collage spécial valeur [RESOLU]

[mecdu01]

Bonjour,

J'ai besoin de votre aide sur un fichier excel.

J'ai 5 colonnes (A, B, C, D, E) dans mon fichier.

Les colonnes A, B, C = les colonnes où sont renseigné les données
La colonne D fait la concaténation des données A, B, C.

Je souhaite copier les formules de concaténation (cellule D) et les coller en "collage spécial / valeurs" dans la cellule E

J'arrive à faire cela manuellement.

MAIS ce que je souhaite, c'est que le "copier" de la cellule Dxx puis le "collage spécial / valeurs" dans la cellule Exx soit fait automatiquement.
Il faudrait que la macro se déclenche quand la cellule Cxx est supérieur à "a".

J'espère avoir bien résumé mon problème, pour que vous compreniez ce que je souhaite.

Je vous remercie par avance de vos réponses, en ayant bien consciense du temps que cela peut vous prendre.

Je vous joint mon fichier dans ce message.

PS IMPORTANT !!! J'ai une version Excel 2003 ANGLAIS, mais je peut me débrouiller pour transformer moi-même les fonctions sous le format anglais.

 

[Pierrot93]

Re : Macro pour collage spécial valeur

Bonjour,

supérieure à "a" cela veut dire quoi ? pour moi une valeur est inférieure ou supérieure à une autre si elle est numérique...

bon après midi
@+

 

[Pierrot93]

Re : Macro pour collage spécial valeur

Re,

un exemple à adapter qui teste du numérique..

Dim i As Integer
For i = 35 To 55
    If Cells(i, 2).Value > 10 Then Cells(i, 5).Value = Cells(i, 4).Value
Next i

 

[mecdu01]

Re : Macro pour collage spécial valeur (EDIT)

En faite c'est une cellule où j'ai du texte dedans, mais elle est en format "général". Enfin dés que la cellule est rempli, il faudrait que ca execute la macro.

 

[Pierrot93]

Re : Macro pour collage spécial valeur (EDIT)

Re,

tu as complètement changé ton post 1 ...

 

[mecdu01]

Re : Macro pour collage spécial valeur (EDIT)

Merci Pierrot93 pour ton exemple, il fonctionne. Par contre il faut que je "run" la macro pour chaque ligne.
Est-ce possible d'automatiser le déclenchement de cette macro ?

 

[mecdu01]

Re : Macro pour collage spécial valeur (EDIT)

Oui c'est pour mieux expliquer mon problème. Mais ton exemple fonctionne !

 

[JNP]

Re : Macro pour collage spécial valeur (EDIT)

Bonjour le fil 🙂,
A mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, 2).Value = Target.Offset(0, 1).Text
End If
End Sub

Bonne journée 😎

 

[mecdu01]

Re : Macro pour collage spécial valeur (EDIT)

Merci beaucoup JNP, ca marche !!
Vous êtes vraiment trop fort.

J'adoore. Génial.

 

[Pierrot93]

Re : Macro pour collage spécial valeur [RESOLU]

Re,

une autre proposition qui évite la concaténation par formule, est faite dans le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not IsEmpty(Target) Then Target.Offset(0, 4).Value = "SMP_" & Target.Offset(0, 2).Value & "_" & _
        Target.Offset(0, 1).Value & "_" & Target.Offset(0, 3).Value
Application.EnableEvents = True
End Sub

 

[mecdu01]

Re : Macro pour collage spécial valeur [RESOLU]

Ok merci beaucoup !!