Microsoft 365 Macro avec conditions

Dudu2

XLDnaute Barbatruc

• 23 Février 2020

• #2

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 ?

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #3

Dudu2 à dit:

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 ?

Cliquez pour agrandir...

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

 

Dernière édition: 23 Février 2020

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Février 2020

• #4

Bonjour.
Alors :

VB:

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

 

Vote positif 0 Vote négatif

Solution

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #5

Dranreb à dit:

Bonjour.
Alors :

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Février 2020

• #6

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.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #7

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.

 

Pièces jointes

• V102.xlsm

  415.6 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Février 2020

• #8

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.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #9

D'accord merci

 

Vote positif 0 Vote négatif