Microsoft 365 Macro avec conditions

[Moreno076]

Bonjour à tous.
Je n'arrive pas à créer une macro. Pour la colonne N une macro recopiant la case de la colonne M si c'est marqué < DOUBLON >. Si ce n'est pas marqué doublon, mais qu'il y a une date, rajouter la date avec un jour de plus, enfin si il n y a rien de marqué, indiqué "Pas de date précise". Je pense que c'est plus simple.

Merci pour votre aide

 

[Dudu2]

Bonjour,
Et sinon une simple formule du genre:
=SI(M2="< DOUBLON >";M2; SI(ESTNUM(M2);M2+1; "Pas de date précise"))
à étendre sur toute la colonne M ça n'irait pas ?

 

[Moreno076]

Bonjour,
Et sinon une simple formule du genre:
=SI(M2="< DOUBLON >";M2; SI(ESTNUM(M2);M2+1; "Pas de date précise"))
à étendre sur toute la colonne M ça n'irait pas ?

Bonjour Dudu2.
En fait je le voudrais en VBA car sinon ca va s inscrire sur toute ma colonne. Il faut que la colonne A soit rempli je n'ai pas précisé Merci

 

[Dranreb]

Bonjour.
Alors :

Sub Feuil1ColonneN()
   Feuil1.[N2].Resize(Feuil1.[A1000000].End(xlUp).Row - 1).FormulaR1C1 _
      = "=IF(RC13=""< DOUBLON >"",RC13,IF(ISNUMBER(RC13),RC13+1,""Pas de date précise""))"
   End Sub

 

[Moreno076]

Bonjour.
Alors :

Sub Feuil1ColonneN()
   Feuil1.[N2].Resize(Feuil1.[A1000000].End(xlUp).Row - 1).FormulaR1C1 _
      = "=IF(RC13=""< DOUBLON >"",RC13,IF(ISNUMBER(RC13),RC13+1,""Pas de date précise""))"
   End Sub

Super c'est exactement ce qu 'il me fallait.merci beaucoup. J'aurais besoin de la même chose pour la colonne A lorsque les cases sont vides que ca mette =@TraitementEtat(B10) (case selon la ligne). Lorsque j'ai des doublons ca m 'efface =@TraitementEtat(B10) pour les lignes en dessous.

Une petite question aussi. Pour qu'un fichier soir plus rapide, il faut mieux enchainer les macros sur un même module? Merci bien

 

[Dranreb]

Je n'ai rien compris.
Ce qui est important pour la rapidité des macro c'est de ne jamais traiter les cellules individuellement. Toujours tout transférer en une seule fois, sur des plages entières.

 

[Moreno076]

Laisse tomber la première colonne fonctionne bien tout fait. Ok d'accord pour les plages entières.
J'ai une dernière petite requête stp. Je voudrais que le bouton reset me permette de rendre le fichier comme au démarrage, or actuellement ca efface les lignes du coup lorsque je relance les macros mais ca en conserve pas du coup les formules et mise en page. Merci DranReb.

 

[Dranreb]

Je crois que vous auriez intérêt à faire subir à votre plage en feuille "Synthèse" une mise sous forme de tableau. Les formules communes à toutes les lignes seraient automatiquement conservées même si vous le videz de toutes ses lignes.

 

[Moreno076]

D'accord merci