Microsoft 365 Probleme USERFORM

[eric72]

Bonjour a tous,
Dans le fichier ci-joint j'ai deux boutons "Ajouter un client" et "Ajouter une prestation", et lorsque je crée l'un ou l'autre il bug sur l'export de la 1ère ligne et je ne comprends pas du tout pourquoi.
Après quelques heures de recherche je m'en remet à votre savoir.
Merci beaucoup pour votre aide.
Eric

 

[Fred0o]

Bonjour Eric72

Il te faut declarer ta variable DerLigne en tant que Integer et pas en tant que Long

Private Sub BtnValider_Click()
        Dim derligne As Integer
        Dim question As Integer

 

[eric72]

Ah mais oui quel idiot, par contre quand je veux entrer une prestation et que je ne saisi pas le taux de marge il s'arrête dessus et bug, comment est il possible de passer par dessus cette étape si on ne saisit rien dedans?
Merci encore
Eric

 

[eric72]

Et même quand je met "integer" ca bug , alors que ca a fonctionné 3 ou 4 fois , pas facile à comprendre!!!

 

[Dudu2]

Bonjour,
Pour les numéros de lignes par principe on met une variable Long pour être sûr de ne pas être bloqué par la limite d'un Integer (32767) bien inférieure au nombre de lignes possible en Excel.

Concernant ton problème, 2 choses me semblent à questionner.
1 - Worksheets("clients").Select
Je ne sais pas bien la différence mais il me semble que l'activation d'une feuille se fait par Worksheets("clients").Activate.

2 - Quoiqu'il en soit, il faut toujours qualifier complètement les objets qu'on utilise (par précaution et par principe) et ce même si la feuille activée est la bonne. Par exemple ça, ça me donne des palpitations:

Cells(no_ligne, 1) = TxtNom.Value
Cells(no_ligne, 2) = TxtPrenom.Value
Cells(no_ligne, 3) = TxtAdresse.Value
Cells(no_ligne, 4) = TxtCommune.Value
Cells(no_ligne, 6) = TxtCourriel.Value
Cells(no_ligne, 7) = TxtTelephone.Value

Mais avec ça mon rythme cardiaque revient à la normale:

With ThisWorkbook.Worksheets("clients")
    .Cells(no_ligne, 1) = TxtNom.Value
    .Cells(no_ligne, 2) = TxtPrenom.Value
    .Cells(no_ligne, 3) = TxtAdresse.Value
    .Cells(no_ligne, 4) = TxtCommune.Value
    .Cells(no_ligne, 6) = TxtCourriel.Value
    .Cells(no_ligne, 7) = TxtTelephone.Value
End With

D'ailleurs, avec cette qualification complète, même plus la peine d'activer la feuille cible.

 

[eric72]

Bonjour et merci pour ton aide, malheureusement ca ne change rien!!!
je suis un peu paumé là...
ERIC

 

[Dudu2]

Chez moi ça change tout.

 

[Dudu2]

Voilà le code modifié pour Clients & Prestations.

 

[Dudu2]

Avec ton fichier c'est simple à reproduire:
- Ouvrir le fichier
- Afficher la feuille Devis (par exemple) ou toute autre feuille que Clients
- Lancer le UserForm Clients
=> CRASH

- Afficher la feuille Clients
- Lancer le UserForm Clients
= OK

C'est bien cette histoire de Worksheets("Clients").Select qui pose un problème.
Si on remplace par Worksheets("Clients").Activate cela fonctionne

De toutes façons, ni Select, ni Activate. Qualifier complètement les objets qu'on utilise !
Après chacun fait comme il veut.

 

[eric72]

Bah je ne vois rien de modifié dans le code???

 

[Dudu2]

Ok, j'ai pas vu qu'il y avait 1 UserForm pour la création et un autre pour la modification.
De plus le calcul de la dernière ligne n'est pas qualifié et la déprotection se fait sur l'ActiveSheet alros qu'il y a des .Select.
Je vérifie.

 

[Dudu2]

En fait rien de tout ça.
Je pense que c'est lié à la manière de valoriser le tableau structuré.

 

[JM27]

bonjour
@eric72
cela aurait été élégant de répondre aux informations que l'on te donnes avant de poster une autre question
https://www.excel-downloads.com/threads/item-dans-userform.20055548/
qu'en penses tu ?

 

[eric72]

Bonjour JM,
Je pensais avoir répondu au fur et à mesure, si j'ai oublié de vous répondre j'en suis vraiment désolé!!!
Je retourne voir ça immédiatement.
1000 Excuses
Eric

 

[Dudu2]

Non plus. Je perds le tableau structuré au 2ème essai!! Jamais vu ça.
Y a un truc qui me surprend. L'appel de la macro associée est une fonction que je ne trouve nulle part !
Pareil pour les prestations.