Desir afficher ou cacher des textboxs sous conditions
Bonsoir , après un coup de pompe au c.... https://forum.excel-pratique.com/posting.php?mode=post&f=2# J essai une nouvelle demande cacher ou afficher des textbox sous conditions .
Suivant un usform créer et une base de données faite aussi , tenir compte de juste ma demande. Merci
Bonsoir et merci de m avoir répondu. J ai un souci des l ouverture du fichier " For Each c In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))"le C ai souligne la macro bloque merci
Bonjour
Message d'erreur et lequel ?
Dans quelle macro ?
Je n'ai pas touché cette instruction
Rebonsoir Private Sub ComboBox10_Change()
' Les tarifs
If Me.ComboBox10.ListIndex = -1 Then Exit Sub
With Sheets("PARAMS")
ComboBox1.Clear
For Each c In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))
If Left(ComboBox10, 3) = Left(c, 3) Then ComboBox1.AddItem c
voici un copier coller le c entre each et range merci
Bonjour
Je redis
Banzai64 a écrit :Message d'erreur et lequel ?
Je n'ai pas touché à cette instruction, tu as la même dans ton fichier original
Dans cette macro j'ai juste rajouté des tests sur la ComboBox10
Et chez moi (Excel 2003) aucun problème
macro de votre retour de fichier
Private Sub ComboBox10_Change()
' Les tarifs
If Me.ComboBox10.ListIndex = -1 Then Exit Sub
With Sheets("PARAMS")
ComboBox1.Clear
For Each c In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))
If Left(ComboBox10, 3) = Left(c, 3) Then ComboBox1.AddItem c
' If ComboBox1 = c Then TexBox20 = c.Offset(0, 1): Exit For
' If ComboBox10.Value = "Feuil1" Then
' Worksheets("Feuil1").Select
' End If
macro originale
Private Sub ComboBox10_Change()
With Sheets("PARAMS")
ComboBox1.Clear
For Each c In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))
If Left(ComboBox10, 3) = Left(c, 3) Then ComboBox1.AddItem c
If ComboBox1 = c Then TexBox20 = c.Offset(0, 1): Exit For
If ComboBox10.Value = "Feuil1" Then
Worksheets("Feuil1").Select
End If
Bonjour
Alors pas de différence entre les deux lignes
For Each c In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))
For Each c In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))Si cela passe dans l'une je ne vois pas pourquoi cela ne passe pas dans l'autre
Comme tu ne veux pas dire le message d'erreur
Essayes de copier les modifs que j'ai faites dans l'autre fichier afin de tester (surtout ne touches pas à la ligne)
Moi go dodo
Bonne nuit
bonsoir non bonne nuit je verrai cela demain moi dodo travail dans pas longtemps merci
Bonjour , j ai résolu mon problème. Voici une nouvelle demande avec le fichier a jour.Merci
Bonjour
sweetee a écrit :j ai résolu mon problème.
Pour mon information personnelle, je voudrais savoir comment ?
Bonjour
Un copier coller de votre modif ,vous pouvez le constater sur la suite de ma demande .Merci
Bonjour
Pas de résultat, la frame 3 ne bouge pas , je ne peu pas remplir mes valeurs merci quand même.
Bonjour
En sélectionnant un tarif qui commence par j (J-DIVERS ou J-LOG) , il n'y a rien qui se passe ?
Bizarre autant qu'étrange
Je viens de tester
Bonjour
je ne comprend pas !!!et en plus j ai la même erreur que sur votre fichier précédent ,une bonne âme peut elle nous aidait. Existe t il des conflits de version d excel .Sinon laissai tomber
Private Sub ComboBox10_Change()
With Sheets("PARAMS")
ComboBox1.Clear
For Eachc In .Range("c2", .Cells(Rows.Count, "c").End(xlUp))
voila le texte qui s affiche "erreur de compilation projet ou bibliothèque introuvable" .Merci a vous
Bonsoir
Si dés le début tu avais marqué le message d'erreur
Quand tu as cette erreur
Debogage
Dans l'éditeur VB
menu Exécution --> Réinitialiser
Menu Outils ---> Références
Dans la liste qui s'affiche il te faut décocher TOUTES les références notées "MANQUANT"
Ok
Enregistrer et relancer le programme
Voici un exemple de ce que tu peux avoir
Bonsoir ,désolé du malentendu comme d habitude je m explique très mal . C 'est super impeccable tout très bien. Merci
J ai encore quelque question en attente puis je vous en posais une par une et merci encore
Bonsoir
Je voie que mon petit problème intéresse toujours au temps de monde,Merci .
Bonsoir ,toujours pareil personne !! merci