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 ?

Rechercher des sujets similaires à "ajouter copie"