Résultats de la recherche

En fait j'ai sept séries de trois 'cochés' (checkboxs/optionbuttons) dans une frame. Je ne veux pas qu'il y a plusieurs 'chochés' dans une série, mais je ne dois pas empècher le cochage des autres séries (qui sont dans la même frame). Je pourrais faire plusieurs frames aussi mais bon...

dans -click ! évidemment merci... (moi aussi fatigué !) Pour les optionsbuttons tant pis.

Même avec des conditions (if 1 est coché alrs décoché 2 et décoché 3 etc.) ça ne marche pas (mais je soupçonne que ces intrucitons ne devrait pas être placer dans initialize) Pour des optionsbuttons, il y a possibilités d'en cocher plusieurs par frame ? Merci à tous pour vos prompts réponses.

Bonjour, Dans mon userform j'ai trois checkbox, je voudrais qu'il n'y en ait qu'une checkbox coché à la fois (le cochage d'une nouvelle checkbox est donc soit impossible soit décoche automatiquement l'autre) Comment et où codé cela ? Davance merci

ça marche mais je comprend pas pourquoi ! Set ZoneOrigine = Worksheets(FeuilleOrigine).Range('B3:U' & lignefin) ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ZoneOrigine).CreatePivotTable TableDestination:=Sheets(FeuilleDestination).Range('B4'), TableName:=NomTable...

Marche toujours pas : Set ZoneOrigine = Worksheets(FeuilleOrigine).Range('B3:U' & lignefin) 'car nombre de lignes variable ! ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ZoneOrigine).CreatePivotTable TableDestination:=Sheets(FeuilleDestination).Range('B4')...

Tout simplement, Merci ! (j'avais essayé de créer un tableau avec les valeurs etc. mais c'était lourd et ne fonctionnait pas)

Ok il a avait effectivement une erreur ! SourceDate prend FeuilleOrigine évidemment et non FeuilleDestination. J'ai essayé de définir une variable ZoneOrigine (sheet.range) mais elle n'est toujours pas accepté par sourceData

Bonjour, Suis-je obligé d'écrire ça ou bien y a t'il une solution plus courte... With ComboBoxVar1 .AddItem 'Adresse' .AddItem 'Facture du' .AddItem 'Début' .AddItem 'Fin' .AddItem 'Mois' .AddItem 'Année' .AddItem 'Référence' .AddItem 'Consommation HP' .AddItem 'Consommation HC'...

Moi aussi quelquechose m'échappe. La création d'un tcd crée automatiquement une nouvelle feuille ? Fichier trop gros pour être joint (117 Ko zippé !) Message édité par: belette, à: 06/06/2006 10:39

En fait la macro complète est : Private Sub OK_Click() Dim FeuilleOrigine, FeuilleDestination, NomTable Dim lignefin, colfin, lignedeb, coldeb 'lecture userform FeuilleOrigine = ComboBoxType.Value FeuilleDestination = 'TCD_' & ComboBoxType.Value NomTable = 'Table_' &...

Bonjour, Sans savoir programmer du tout ça risque d'être difficile, a priori il faut écrire une macro en VBA ...

Apparemment c'est au niveau de sourcadata que cela bloque mais je ne vois pas comment mettre ma variable FeuilleOrigine autrement...

Bonjour, J'ai crée une macro VBA afin de créer un tableau croisé dynamique. J'utilise l'instruction suivante: ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=''FeuilleOrigine'!R' & lignedeb & 'C' & coldeb & ':R' & lignefin & 'C' & colfin).CreatePivotTable...

Bonjour, Avec une macro VBa je voudrais créer un tableau croisé dynamique. ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=''FeuilleOrigine'!R' & lignedeb & 'C' & coldeb & ':R' & lignefin & 'C' & colfin).CreatePivotTable TableDestination:=FeuilleDestination...

En effet, pas besoin de réinstaller, le problème était dans la prémière ligne userform tout court et non pas le nom de l'userform !

Ok merci, je dois vraiment avoir un bug sur ma version de Excel (Micro$osft de ********), ta version marche sur ton classeur et ne marche plus quand je colle dans mon classeur ! Je cherche le CD d'installation pour faire un peu de ménage....

salut, décidément en ce moment moi et Excel ça fait deux... Je n'arrive pas à faire fonctionner ta solution (par contre mon problème d'hier c'est résolu tout seul ce matin en ouvrant le fichier ! mystère...)

Bonjour à tous, J'ai une useform avec une combobox et je voudrais y afficher la liste des feuilles existantes du classeur. J'ai tenté (en vain) ça : Sub UserFormTCD_Initialize() For i = 1 To Worksheets.Count ComboBoxTypeNRJ.AddItem Sheets(i).Name Next i

Merci Law Il n'y a pas plus plus simple ? Dommage, tant pis...