M
Marion
Guest
Bonsoir au forum
voici un code qui me permet de copier cetraines cellules dans un tableau, mon problème est qu'il marrive de copier deux fois ses valeurs.
en colonne B ce sont des dates
peut on interdire la copie si la date existe déjà ou avoir la possibilite de la remplacer
Dim res As String
Dim FinTablo As Integer
Application.ScreenUpdating = False
res = MsgBox('pour valider l'occupation des lignes et imprimer appuyer sur oui, pour imprimer uniquement appuyer sur non, pour sortir appuyer sur annuler', vbYesNoCancel)
If res = vbYes Then
FinTablo = Range('a6000').End(xlUp).Row
Range('A' & FinTablo + 1) = Range('A2').Value
Range('b' & FinTablo + 1) = Range('b2').Value
Range('c' & FinTablo + 1) = Range('c2').Value
Range('d' & FinTablo + 1) = Range('d2').Value
Range('e' & FinTablo + 1) = Range('e2').Value
Range('f' & FinTablo + 1) = Range('f2').Value
Range('G' & FinTablo + 1) = Range('G2').Value
Merci une nouvelle fois de votre aide
A+Marion
voici un code qui me permet de copier cetraines cellules dans un tableau, mon problème est qu'il marrive de copier deux fois ses valeurs.
en colonne B ce sont des dates
peut on interdire la copie si la date existe déjà ou avoir la possibilite de la remplacer
Dim res As String
Dim FinTablo As Integer
Application.ScreenUpdating = False
res = MsgBox('pour valider l'occupation des lignes et imprimer appuyer sur oui, pour imprimer uniquement appuyer sur non, pour sortir appuyer sur annuler', vbYesNoCancel)
If res = vbYes Then
FinTablo = Range('a6000').End(xlUp).Row
Range('A' & FinTablo + 1) = Range('A2').Value
Range('b' & FinTablo + 1) = Range('b2').Value
Range('c' & FinTablo + 1) = Range('c2').Value
Range('d' & FinTablo + 1) = Range('d2').Value
Range('e' & FinTablo + 1) = Range('e2').Value
Range('f' & FinTablo + 1) = Range('f2').Value
Range('G' & FinTablo + 1) = Range('G2').Value
Merci une nouvelle fois de votre aide
A+Marion