Bonjour,
Débutant en macros, je chercherai à faire une formule qui se construirait sur la base d'une macro qui doit pouvoir récupérer des valeurs dans des onglets ayant tous une structure similaire.
Situation :
J'ai un classeur "Feuil1!" qui dispose :
- En colonne A du nom de tous les autres onglets
- En colonne C les formules permettant d'avoir les totaux des valeurs contenues dans chaque onglet (Total 1 = somme des valeur en B1 de chaque autre onglet, Total 2 = somme des valeurs en B2 de chaque autre onglet...)
Comment éditer une macro qui permette d'obtenir la formule en Colonne C de la "feuil1" automatiquement et avec les données présentes ?
J'ai fait un test de macro, mais qui ne fonctionne pas (objet requis sur l'objet "Formule"). Voici le code :
Par avance merci de votre aide !
Débutant en macros, je chercherai à faire une formule qui se construirait sur la base d'une macro qui doit pouvoir récupérer des valeurs dans des onglets ayant tous une structure similaire.
Situation :
J'ai un classeur "Feuil1!" qui dispose :
- En colonne A du nom de tous les autres onglets
- En colonne C les formules permettant d'avoir les totaux des valeurs contenues dans chaque onglet (Total 1 = somme des valeur en B1 de chaque autre onglet, Total 2 = somme des valeurs en B2 de chaque autre onglet...)
Comment éditer une macro qui permette d'obtenir la formule en Colonne C de la "feuil1" automatiquement et avec les données présentes ?
J'ai fait un test de macro, mais qui ne fonctionne pas (objet requis sur l'objet "Formule"). Voici le code :
Code:
Sub Bouton1_Clic()
Dim Ressource As String
Dim Formule As Object
Dim Formulefin As Object
Dim i As Integer
Set Formule = Sheets("Feuil1").Range("A1").Value
For i = 1 To Sheets("Feuil1").Range("A1").End(xlDown).Row
Ressource = ThisWorkbook.Worksheets("Feuil1").Range("A" & i)
Set Formule = Formule & Ressource & "!B1+"
Next i
Set Formulefin = "=" & Formule
Set ThisWorkbook.Worksheets("Feuil1").Range("C1").Formula = Formulefin
Sheets("Feuil1").Range("C1").AutoFill Destination:=Range("C1:C3")
End Sub
Par avance merci de votre aide !
Pièces jointes
Dernière édition: