Macro VBA

[ric]

Bonjour le forum,

N'ayant pas de connaissances en VBA, je fais appel à votre aide.
Ma demande se trouve dans le fichier joint.


Merci.

 

[Hervé]

Bonjour

Une proposition à placer dans le command_button :

Option Explicit
Private Sub CommandButton1_Click()
Dim l As Integer, l1 As Integer
Sheets("feuil2").Range("a2:d500").ClearContents
'TableauSimple
l1 = Sheets("feuil2").Range("a65000").End(xlUp).Row
l = Range("a65000").End(xlUp).Row
For Each C In Range("c4:j" & l)
l1 = Sheets("feuil2").Range("a65000").End(xlUp).Row + 1
If Not IsNumeric(C.Value) Then
With Sheets("feuil2")
.Range("c" & l1).Value = C.Value
.Range("A" & l1).Value = Cells(C.Row, 1).Value
.Range("b" & l1).Value = Cells(C.Row, 2).Value
.Range("d" & l1).Value = C.Offset(0, 1).Value
End With
End If
Next C
End Sub

salut
Hervé

 

[AlainM]

Bonsoir

Si ton tableau à mettre à jour ne change pas de dimension, sinon il faut changer l'importance de la plage A12😀22.
Tu crées un module, tu vas recopier cette petite procedure dedans et tu vas ensuite affecter la macro à ton bouton.

PS: je ne sais pas avec quoi et comment tu as fait ton bouton mais impossible d'avoir des renseignement en cliquant dessus et impossible de lui affecter une macro donc essaie de voir pour dessiner un autre bouton, tu cliques ensuite dessus à droite et tu lui affecte ta macro

Sub Macro1()
Range("A12😀22").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Feuil1").Select
Range("B1:I1").Select
Application.CutCopyMode = False
End Sub

Bon courage et bonne soirée
@lain

 

[AlainM]

re bon soir

J'ai vu qu'Hervé t'avait mis quelque chose de bien plus complet que ce que je t'ai indiqué.

A bientôt
@lain

 

[ric]

C'est exactement ce que je voulais.

Merci beaucoup.