455 résultats trouvés

par Benead
8 octobre 2016, 09:09
Forum : Excel - VBA
Sujet : Combobox Paramétrage
Réponses : 12
Vues : 396

Re: Combobox Paramétrage

Bonjour,

Louyjotj, j'avais lu ton dernier message à l'envers. Si tu veux gérer une base de données comme il se doit, tu dois avoir une liste complête à un seul endroit, et tu ajoutes des items avant de faire ton inventaire.

Fichier mit à jour avec une feuille liste de choix et la feuille inventaire.
par Benead
7 octobre 2016, 15:17
Forum : Excel - VBA
Sujet : Combobox Paramétrage
Réponses : 12
Vues : 396

Re: Combobox Paramétrage

Bonjour, Alors il ne faut pas charger le ComboBox avec des valeurs par défaut, mais avec la liste (sans doublon) de l'inventaire. Un exemple en pj avec tri possible des valeurs du ComboBox : Private Sub UserForm_Initialize() Dim Ligne As Long Dim I As Integer, Cpt As Integer Dim NoDoublon As New Col...
par Benead
6 octobre 2016, 23:34
Forum : Excel - VBA
Sujet : Erreur 1004 VBA ... Quelle solution
Réponses : 3
Vues : 482

Re: Erreur 1004 VBA ... Quelle solution

Bonsoir, Pas évident de deviner sans fichier, tout dépend du contenu de cellule et du chargement des variables. Dans les piste une colonne à 0 ! Si tu ne sais pas utiliser les espions et le débogage de code (mode pas à pas...), voici une astuce pour t'aider à déceler les premiers symptômes : Utilise...
par Benead
6 octobre 2016, 22:55
Forum : Excel - VBA
Sujet : titre automatique après chaque actualisation du GCD
Réponses : 6
Vues : 243

Re: titre automatique après chaque actualisation du GCD

Bonsoir, J'ai fait une modification rapide pour répondre au besoin, mais cela ne me satisfait pas vraiment : Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable) Dim sDateAct As String, Shp As Shape, NameGraph As String For Each Shp In Worksheets("Graphs").S...
par Benead
6 octobre 2016, 22:17
Forum : Excel - VBA
Sujet : Rajouter des - et enlever des ()
Réponses : 4
Vues : 83

Re: Rajouter des - et enlever des ()

Bonsoir,

Avec la fonction STXT, par exemple =STXT(TaCellule;2;,2) renvoie AB, il te suffit ensuite de faire des concaténations.
par Benead
6 octobre 2016, 22:13
Forum : Excel - VBA
Sujet : Pb changement couleur de ligne impaire
Réponses : 3
Vues : 156

Re: Pb changement couleur de ligne impaire

Bonsoir,

Pour les lignes impaires, supprime la mise en forme conditionnelle correspondante.
Pour la taille du fichier, supprime les formats de cellules de toute la feuille et reformate uniquement la plage utilisée.
par Benead
6 octobre 2016, 19:20
Forum : Excel - VBA
Sujet : titre automatique après chaque actualisation du GCD
Réponses : 6
Vues : 243

Re: titre automatique après chaque actualisation du GCD

Bonjour, Non je n'ai pas office 365, impossible pour moi de faire le test. Essaie ça juste au cas où : Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable) Dim sDateAct As String, Shp As Shape For Each Shp In Worksheets("Graphs").Shapes sDateAct = Format(Shp...
par Benead
6 octobre 2016, 19:00
Forum : Office
Sujet : Access et Section Détail
Réponses : 1
Vues : 702

Re: Access et Section Détail

Bonsoir Jpbt84,

Tu fais cela en VBA Access ? Tu peux me montrer un bout de code ?
Si tu utilises un RecordSet, on passe à l'élément suivant en faisant un RS.Next.
par Benead
6 octobre 2016, 08:50
Forum : Excel - VBA
Sujet : Ajout de la référence "Microsoft Rich Textbox Control 6.0 so
Réponses : 5
Vues : 525

Re: Ajout de la référence "Microsoft Rich Textbox Control 6.

Bonjour, Quelle est la version d'Office sur le serveur ? Si c'est la 64bits, il est possible quelle ne fonctionne pas, tout comme les mscomctl.ocx... Sinon, après avoir placé le composant dans le System32, tu l'as bien enregistré (Regsvr32...) ? (je me doute que oui, mais je prèfère quand même poser...
par Benead
6 octobre 2016, 08:31
Forum : Excel - VBA
Sujet : Aide sur code
Réponses : 23
Vues : 334

Re: Aide sur code

Donc, dans ce cas, il faut associer les deux : Private Sub Workbook_SheetActivate(ByVal Sh As Object) Call Workbook_SheetChange(Sh, ActiveCell) End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' Code... End Sub Si c'est uniquement à l'activation, il faut alors remp...