XL 2019 "Vider" les cellules apparemment vides...

Efgé

XLDnaute Barbatruc

• 27 Septembre 2022

• #2

Bonjour

Une idée :
Remplace tous tes

VB:

ActiveCell.Offset(0, 3) = ComboBoxDateprévue
ActiveCell.Offset(0, 4) = LabelDate1
ActiveCell.Offset(0, 5) = ComboBoxEvaluation

Par

Code:

If ComboBoxDateprévue <> "" Then ActiveCell.Offset(0, 3) = ComboBoxDateprévue
If LabelDate1 <> "" Then ActiveCell.Offset(0, 4) = LabelDate1
If ComboBoxEvaluation <> "" Then ActiveCell.Offset(0, 5) = ComboBoxEvaluation

Cordialement

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Septembre 2022

• #3

Bonjour Katoch,
Petit patch en PJ, jai rajouté :

VB:

 ' Nettoyage : Si une cellule a un NBCAR=0 et NBVAL>0 alors on l'efface
    For I = 1 To 162
        If Application.CountA(ActiveCell.Offset(0, I)) > 0 And Len(ActiveCell.Offset(0, I)) = 0 Then
            ActiveCell.Offset(0, I).ClearContents
        End If
    Next I

Je n'ai pas cherché le pourquoi de ce truc bizarre. Les cellules ont un NBVAL positif mais un NBCAR nul.
Ce n'est pas le plus esthétique, mais c'est efficace.

PS :
Voir ce lien.

La fonction NBVAL compte les cellules contenant tout type d’information, y compris des valeurs d’erreur et du texte vide ("").

Cliquez pour agrandir...

Comme la macro y met un texte vide, NBVAL compte 1.
Pour éviter cela il faudrait faire SI Valeur<>"" alors écrire, mais avec toutes vos box, ma méthode devient plus simple.

 

Pièces jointes

• Katoch FM V1 (2).xlsm

  114.7 KB · Affichages: 4

Dernière édition: 27 Septembre 2022

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 27 Septembre 2022

• #4

Re
Bonjour @sylvanu
Tu dits :

sylvanu à dit:

Comme la macro y met un texte vide, NBVAL compte 1.

Cliquez pour agrandir...

Et tu proposes:

sylvanu à dit:

ActiveCell.Offset(0, I) = ""

Cliquez pour agrandir...

😳

Autant mettre :

VB:

ActiveCell.Offset(0, I).ClearContents

Cordialement

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Septembre 2022

• #5

Bonjour Efgé,
Je m'étais fait la même réflexion. J'ai modifié la PJ avec : ActiveCell.Offset(0, I).ClearContents
Par contre, aussi bizarre que cela puisse paraitre, cela marchait.

 

Vote positif 0 Vote négatif

K

Katoch

XLDnaute Junior

• 27 Septembre 2022

• #6

Yes ! yes ! yes !
Merci beaucoup Sylvanu et Efgé !! le correctif fonctionne parfaitement, ouf....

Encore une question:
Pour obtenir l'affichage du prénom dans le Label TxtPrénom ,après avoir sélectionné le Nom dans la comboboxNom,celui-ci ne s'affiche que lorsque je clic sur TxtPrénom.
Peut-on obtenir l'affichage directement après avoir sélectionné le Nom et aller mettre en focus le champs suivant qui est ComboBoxDateprévue ?

merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Septembre 2022

• #7

Re,
Pas sur d'avoir bien compris.
Mais il me semble qu'il suffit de rajouter ComboBoxNom_AfterUpdate dans la macro ComboBoxNom_Change.

 

Pièces jointes

• Katoch FM V1 (2) (1).xlsm

  112.8 KB · Affichages: 3

Vote positif 0 Vote négatif

K

Katoch

XLDnaute Junior

• 28 Septembre 2022

• #8

Merci +++ Sylvanu !

 

Vote positif 0 Vote négatif