Re : Probleme de tableau
ok je suis un peu dépassé,mais bon j'ai l'habitude ,donc si j'ai bien compris tout réside dans ca
Sub Transfert()
Dim Derligne As Long
With Sheets("BaseDeDonnées")
Derligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Derligne) = Range("F9") 'Nom
.Range("B" & Derligne) = Range("C14") 'Date de facture
.Range("C" & Derligne) = Range("F37") 'Montant
.Range("D" & Derligne) = Range("F18") 'Numéro de facture
.Range("E" & Derligne) = Range("A14") 'Numéro de commande
Range("F9:F11,C14,F37,F18,A14") = ""
End With
MsgBox " transfert dans la base effectuée"
End Sub
et la ligne qui efface est : Range("F9:F11,C14,F37,F18,A14") = ""
donc je peux vider aussi ,quantité ,prix unitaire ,produit ,pour répondre à ta question(validation de données) je ne sais pas c'est un tableau qu'utilise ma femme
merci de ton aide c'est très sympa