Creation plusieurs toupies + Compilation pour statistiques

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
ThoWmas31
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 15 mars 2017
Version d'Excel : 2010

Message par ThoWmas31 » 15 mars 2017, 10:09

bonjour a tous,

je cherche actuellement a réaliser une macro pour crée des toupies en "masses" sur toutes une colonne avec Une ou 2 petites subtilité

j'ai recupéré un bout de macro puis modifié :
Sub generer_toupies()

Dim spinbutton As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range

'settings
lig = 6 'ligne de départ
lig_fin = 8 'ligne fin
col = 6 'colonne d'implantation

Do Until lig = lig_fin + 1
    Set Target = ActiveSheet.Cells(lig, col)
        Set spinbutton = ActiveSheet.OLEObjects. _
                    Add(ClassType:="Forms.spinbutton.1", _
                    Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
                    Range("E8").Value = SpinButton1.Value
    lig = lig + 1
Loop
End Sub

Pour l'instant la création se passe bien mais je n'arrive pas à édité la cellule liée. et je voudrais que la toupie qui est en E8 par exemple modifie la valeurs en D8 et on continue avec E9 modifie D9

de plus pour un autre fichier excel :

a chaque objet terminé je vais créer un fichier excel, j'aimerai que les résultats que je compiles de ces fichiers (qui seront nommé : par N°_XX) se synthétise dans un autre fichier excel pour faire des statistiques

comment faire ? le plus simple est que je fasse une macro du fichier excel dans lequel je veux compiler et que j'aille ouvrir les fichiers dont j'ai besoins?



pouvez vous m'aider ?
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'050
Appréciations reçues : 37
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 15 mars 2017, 11:06

Bonjour
:bv:
en essai, si j'ai bien compris
remplace
Range("E8").Value = SpinButton1.Value
par
cells(lig,col+1).value = SpinButton1.Value
Ps la prochaine fois fourni un fichier exemple avec des données anonymes, cela sera plus simple
fred
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
T
ThoWmas31
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 15 mars 2017
Version d'Excel : 2010

Message par ThoWmas31 » 15 mars 2017, 17:06

Désolé pour le manque d'exemple excel en voici un en PJ

ca ne fonctionne pas , quand je crée un toupie par macro je ne peux pas éditer son champs valeurs liée dans les paramètres.

De plus mon autre but est d'arriver a copier plusieurs cellule qui sont des fichiers différents , sur un seuls et meme fichier pour en faire des statistiques.

Vu que les noms et les chemins ne seront pas identiques, je préfère ouvrir une usefrom , j'ai commencé avec le code suivant, mais ensuite je n'arrive pas a copier du fichier source vers le fichier cible :
Public Sub Ouvrir_Fichier_Quelconque()

Dim wbSource, wbFichierUsager As Workbook

Dim strFileName As String

Dim intChoice As Integer   'Déclarer les variables de base

Set wbFichierUsager = ThisWorkbook

' On va appeler une application de MS Office afin de chercher et d’ouvrir le bon fichier

'  Avec la commande qui suit, on indique que nous ne voulons qu’un seul fichier

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

'  On affiche l’écran de dialogue de MS Office

intChoice = Application.FileDialog(msoFileDialogOpen).Show

'  On s’assure que l’usager a fait un choix

If intChoice <> 0 Then

'   On récupère le nom complet du fichier

strFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Workbooks.Open strFileName

Set wbSource = ActiveWorkbook

'   Sinon, on arrête tout en notifiant l’usager

Else

' S’il n’y a pas de fichier, on quitte sans rien faire

MsgBox "La procédure est annulée car aucun fichier n’a été entré.”"

Exit Sub

End If

wbFichierUsager.Worksheets("sheet1").Range("B4").Copy.ActiveWorkbook

wbSource.Close SaveChanges:=False   'On ferme le fichier sans le sauver

End Sub
exemple excel.xlsx
(16.21 Kio) Téléchargé 12 fois
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 2'050
Appréciations reçues : 37
Inscrit le : 13 mai 2014
Version d'Excel : O365Pro-2019-2011MAC
Version de Calc : 6.3

Message par fred2406 » 15 mars 2017, 19:40

Re bonjour
Franchement ton explication n'est pas claire pour moi....
1) que veux tu copié (feuille, plage de cellule, une cellule,....) et vers ou ??? et dire aussi dans quel sens ??
thisworkbook étant le fichier dans lequel se trouve le code
2) que veux tu faire de tes toupies ??

pour être plus explicite, fournit deux fichiers exemple N°_variante 1 et variante 2 et donne un troisième fichier avec le résultat attendu
car perso j'ai pas tout compris mais c'est peut être la fatigue...
fred
Je ne réponds pas aux M.P. non sollicités.
Ne pas oublier :
:btres:
Fred :O-O:
T
ThoWmas31
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 15 mars 2017
Version d'Excel : 2010

Message par ThoWmas31 » 15 mars 2017, 19:59

rebonjour Fred,

merci de prendre le temps, tu as les 3 fichiers pour avoir un exemple de ce que je cherche.

La petite subtilité est que les fichiers toupies n'auras pas forcément le meme chemin , et c'est un fichier toupies par produit, donc le nom changeras

je cherche à récupérer la valeurs de certaines cellule.

Les toupies j'en suis pas fan , mais c'est parce que c'est un comptage d'erreur a partir d'une tablette tactile , c'est ce qui semble le plus facile pour les opérateurs

En espérant avoir répondu a tes questions par rapport à mon besoin
Fichier toupie 2.xlsx
(11.64 Kio) Téléchargé 14 fois
Fichier toupie 1.xlsx
(11.64 Kio) Téléchargé 12 fois
fichier stats.xlsx
(10.44 Kio) Téléchargé 9 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message