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
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