Macro de Date Echeance
Bonjour,
merci de m'aider a trouver la bonne macro de cette situation:
J'ai deux feuilles: Feuil1, Feuil 2
Feuil1 dans colonne A , j'ai des dates, format: JJ/MM/AAAA.
Feuil2 dans colonnes C, j'ai des chiffres: exemple: 30, 28, 15.,,,,
j'ai besoin de ajouter les chiffres dans la Feuil2 à les dates dans la Feuil1, et coller le resultat dans la colonne "i" de la Feuil1.
Exemple:
Feuil1/colonne A = 31/01/2019
Feuil2/colonne C = 20
le resultat collé dans la colonne 'I' Feuil1 = 20/02/2019
NB: si la colonne C de la Feuil 2 est vide = resultat dans colonne "I" Feuil1 est vide.
La macro applique a toutes les colonnes.
Merci infiniment mes amis
merci de m'aider a trouver la bonne macro de cette situation:
J'ai deux feuilles: Feuil1, Feuil 2
Feuil1 dans colonne A , j'ai des dates, format: JJ/MM/AAAA.
Feuil2 dans colonnes C, j'ai des chiffres: exemple: 30, 28, 15.,,,,
j'ai besoin de ajouter les chiffres dans la Feuil2 à les dates dans la Feuil1, et coller le resultat dans la colonne "i" de la Feuil1.
Exemple:
Feuil1/colonne A = 31/01/2019
Feuil2/colonne C = 20
le resultat collé dans la colonne 'I' Feuil1 = 20/02/2019
NB: si la colonne C de la Feuil 2 est vide = resultat dans colonne "I" Feuil1 est vide.
La macro applique a toutes les colonnes.
Merci infiniment mes amis
Configuration: Windows / Firefox 52.0
1 réponse
-
Bonjour,
Vous voulez vraiment une macro, car une simple formule va tres bien!!!-
-
-
-
-
Re,
une facon de faire:
Sub calcul_Date() Dim sh1 As Worksheet Dim sh2 As Worksheet Dim Plage As Range Set sh1 = Worksheets("feuil1") Set sh2 = Worksheets("feuil2") With sh1 Set Plage = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) For Each cel In Plage If IsDate(cel) And sh2.Cells(cel.Row, 3) <> "" Then .Cells(cel.Row, 9) = cel + sh2.Cells(cel.Row, 3) Else .Cells(cel.Row, 9) = "" End If Next End With End Sub
-
