Microsoft 365 Probleme USERFORM

Fred0o

XLDnaute Barbatruc

• 30 Mars 2021

• #2

Bonjour Eric72

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

VB:

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Mars 2021

• #4

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #5

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:

VB:

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:

Code:

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.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Mars 2021

• #6

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #7

Chez moi ça change tout.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #8

Voilà le code modifié pour Clients & Prestations.

 

Pièces jointes

• test-1.xlsm

  632.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #9

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.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Mars 2021

• #10

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #11

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #12

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 30 Mars 2021

• #13

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 ?😳

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Mars 2021

• #14

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 30 Mars 2021

• #15

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.

 

Vote positif 0 Vote négatif