tootwi

Merci scunny pour ta réponse, mais j'avais déjà regardé ce site, et j'arrive quand meme pas à trouver mes réponses..... pour la somme que j'essaie de faire, j'ai tenté : For i = 4 To 31 Cells(i, 3).Select 'Cells(i, 3) = "=Sum( Cells(&i&, 4) : Cells(&i&, &dernier_ind&) ) / " & nbreaffaires & " " Cells(i, 3) = "=sum (Range(ActiveCell(1, 2).adress, ActiveCell(1, nbreaffaires).Adress))/ " & nbreaffaires & "" Next i Mon problème c'est que je sais pas où mettre les " et & et tout ça.... et je voudrais mettre une formule qui fasse reference à la page que je viens de créer (nom affaire), mais il faut que ça apparaisse comme une formule car je vais remplir cette feuille seulement à la fin de l'execution de la macro, et là j'ai essayé : With Sheets("Synthese") .[D4] = [ nom_affaire !M4] ' là il met un # VALEUR! .[D4].Formula = Sheets(nom_affaire).Range("M4") ' là il met tout le temps zéro End With et dans les 2 cas quand je modifie les valeurs de ma page nom_affaire, elles ne sont pas prises en compte.... je pédale dans la semoule là... (j'avoue que ça fait 4 jours que j'ai commencé à toucher aux macros, avec le mode enregistreur...) merci d'avance!!

Bonjour, J'ai fait une macro avec un userform qui demande à l'utilisateur un nom (nom_affaire dans le code), puis la macro crée une nouvelle feuille dans le classeur nommée nom_affaire, puis crée une colonne dans une page synthese ou les données de la page crée sont reportées. J'ai 2 problemes: 1) Je n'arrive pas à remplir la nouvelle colonne de la page synthese avec les données de la feuille nom_affaire que j'ai crée, il doit y avoir un probleme de reference là : Dim nom_affaire As String nom_affaire = Boite_nom_affaire.TextBox1.Value Sheets("Synthese").Select Columns("D:D").Select Selection.Insert Shift:=xlToRight ' insertion de la nouvelle colonne Range("D3").Select ActiveCell.FormulaR1C1 = nom_affaire 'report du nom de l'affaire en tete de la colonne (ça, ça marche) Range("D4").Select ActiveCell.FormulaR1C1 = Sheets(nom_affaire).Range("M4") 'là ça ne marche plus, ça met 0 dans la cellule 2) Je veux faire la somme des données de la feuille synthese, en agrandissant la zone de la somme vu que j'ai ajouté une colonne : Dim nbreaffaires As Integer nbreaffaires = Sheets.Count - 2 Range("C4").Select ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[& nbreaffaires])" Donc là ça marche pas du tout, il lance le debogeur (j'ai essayé aussi ActiveCell.FormulaR1C1 = "=SUM(D4:Cells(4, ActiveSheet.UsedRange.Columns.Count))" et ça marche pas, il met un #NOM? Je suis débutante, donc je pense que ça doit etre des problemes de syntaxe, mais je sais pas du comment corriger ça, alors merci de votre aide! tootwi