Creation plusieurs toupies + Compilation pour statistiques

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 ?

Bonjour

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

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
17exemple-excel.xlsx (16.21 Ko)

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

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

13fichier-stats.xlsx (10.44 Ko)
Rechercher des sujets similaires à "creation toupies compilation statistiques"