Je te remercie, je suis actuellement à la recherche aussi. C'est mon coter curieux
En espérant trouver et si quelqu'un à la solution, se serait super pour nous...
Merci d'avance à ceux qui m'aide.....
Cordialement.
J'ai trouver le code qui est ci-dessous dans le forum qui fonctionne.
Ce ne sont pas les cellules de mon fichier mais sa fonctionne et en automatique.
Donc si quelqu'un arrive à m'adapter ce code sur mon fichier, sa serait génial
Code dans "paiement"
Private Sub Worksheet_Activate()
'fait par willy
Sheets("Commande").Range("A7:H6845").ClearContents
li = Sheets("Données").Range("B7").End(xlDown).Row
If Sheets("Données").Range("B7") = "" Then MsgBox "Pas de données saisies!", vbCritical: Exit Sub
If Sheets("Données").Range("B8") = "" Then li = 7
ligne = 7
For i = 7 To li
If UCase(Sheets("Données").Range("A" & i)) = "X" Then
Cells(ligne, 1) = Sheets("Données").Cells(i, 2)
Cells(ligne, 2) = Sheets("Données").Cells(i, 3)
Cells(ligne, 3) = Sheets("Données").Cells(i, 4)
Cells(ligne, 5).FormulaR1C1 = "=RC[-1]*RC[-2]"
ligne = ligne + 1
End If
Next
Range("D7").Select
End Sub
Code dans module 1 :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/05/2013 par willy
'
'
Range("E7").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-2]"
Range("E7").Select
End Sub