Macro de Date Echeance

Fermé

nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 24 janv. 2019 à 15:57
nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 25 janv. 2019 à 17:14

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:

Macro de Date Echeance
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Airpods 3 date de sortie - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
24 janv. 2019 à 18:30

Bonjour,

Vous voulez vraiment une macro, car une simple formule va tres bien!!!

nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
25 janv. 2019 à 12:10

c mieux une macro, car j'ai toutes les colonnes pleines des informations, je voudrerai que ça soit automatique.

Merci infiniment

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
25 janv. 2019 à 12:13

Bonjour,

Pouvez expliquer:
La macro applique a toutes les colonnes.
Alors que vous parlez d'une seule!!!!

nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
Modifié le 25 janv. 2019 à 12:31

je vise 2 colonnes: colonne A, et colonne C, de deux feuilles.

Merci

nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
25 janv. 2019 à 16:05

J'au voulu dire la macro s'applique sur les deux colonnes A , et C.

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
25 janv. 2019 à 16:34

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

Discussions similaires

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

Problème Whatsapp - "La date est incorrecte"

Problème publipostage date de naissance

Jm date resiliation

MFG pas encore arrivée