Ajouter des cellules à une copie de cellule
Bonjour,
j'ai un code très efficace qui m'a été proposé par les pro du forum qui me permet de copier/coller des cellules selon critère d'un tableau vers un autre tableau.
Je souhaiterai améliorer ce code pour que dans la copie, soit ajouter des cellules.
Par exemple je copie deux cellules côte à côte: "AA" "BB" du tableau A;
j'aimerai que le collage sur le tableau B soit : "AA" "BB" "CC", ou "CC" serait par exemple la date du jour ou bien la variable nb_alea générée lors de l’exécution du code.
Qu'en pensez-vous ?
PS : pour faire fonctionner le code, il faut sélectionner une des cellules du Tableau5 (feuille "COMMANDE") et cliquer sur "Envoyer la commande fournisseur".
L'ensemble des lignes du Tableau4 correspondant au fournisseur sélectionné est alors copié vers le Tableau15 (feuille "GLOBAL"), et ensuite supprimé de la feuille "COMMANDE".
Sub Envoyer_commande()
Randomize
nb_alea = Int(1000 * Rnd) + 1
Set isect = Application.Intersect(ActiveCell, Range("G3:G10"))
If Not isect Is Nothing And ActiveCell <> "" Then
FOURNISSEUR = ActiveCell.Value
If MsgBox("Êtes-vous sûr de vouloir lancer la commande des produits" & " " & _
FOURNISSEUR & " " & "?", vbYesNo, "Demande de confirmation") = vbYes Then
Call Archiver1
End If
End If
End Sub
Sub Archiver1()
Dim ACell As Range, n As Long, i As Long
Application.ScreenUpdating = False
Set ACell = ActiveCell
If ACell.ListObject Is Nothing Then Exit Sub
If ACell.ListObject.Name = "Tableau5" And Len(ACell) > 0 Then
With ActiveSheet.ListObjects("Tableau4")
n = .ListRows.Count
For i = n To 1 Step -1
If .ListColumns("FOURNISSEUR").DataBodyRange.Rows(i).Value = ACell.Value Then
Range("Tableau4[[#Headers],[DATE]:[SPECIALITE]]").Offset(i, 0).Copy
Sheets("GLOBAL").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Sheets("GLOBAL").Paste
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
.ListRows(i).Delete
End If
Next i
End With
End If
Sheets("COMMANDE").Select
End Sub
En l'occurrence, dans ce projet excel, le code copie les colonnes A à L du Tableau4 vers le Tableau15, et j'aimerai que lors du collage sur le Tableau15 les colonnes M & N soient respectivement remplies par la date du jour & la valeur de nb_alea.
Personne de motivé pour trouver des éléments de réponse ?