Macro de Date Echeance

nonossov Messages postés 638 Statut Membre -  
nonossov Messages postés 638 Statut Membre -
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


Configuration: Windows / Firefox 52.0
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Vous voulez vraiment une macro, car une simple formule va tres bien!!!
1
nonossov Messages postés 638 Statut Membre
 
c mieux une macro, car j'ai toutes les colonnes pleines des informations, je voudrerai que ça soit automatique.

Merci infiniment
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Pouvez expliquer:
La macro applique a toutes les colonnes.
Alors que vous parlez d'une seule!!!!
0
nonossov Messages postés 638 Statut Membre
 
je vise 2 colonnes: colonne A, et colonne C, de deux feuilles.

Merci
0
nonossov Messages postés 638 Statut Membre
 
  • J'au voulu dire la macro s'applique sur les deux colonnes A , et C.
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
MFG pas encore arrivée
kkwtanne -
brucine -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses
Désabonnement JM date
Moew__ -
bazfile -

1 réponse