Toujours pareil : une erreur que je n'arrive pas =E0 cerner et qui doit
=EAtre d'une simplicit=E9 d=E9solante.
Dans la proc=E9dure suivante, j'ai la chance d'obtenir une magnifique
erreur 1004 sur la ligne qui modifie la formule de la case A1.
Toutes les variables que j'utilise sont d=E9finies et publiques.
Private Sub Recapitulatif()
Windows(NomClasseurRecapitulatif).Activate
Rows("1:1").Select
Selection.Insert Shift:=3DxlDown
Range("A1").Formula =3D "=3Dhyperlink(" & CheminClasseurEnCours & "," & INI
& ")"
End Sub
Bonjour à tous, Toujours pareil : une erreur que je n'arrive pas à cerner et qui doit être d'une simplicité désolante. Dans la procédure suivante, j'ai la chance d'obtenir une magnifique erreur 1004 sur la ligne qui modifie la formule de la case A1. Toutes les variables que j'utilise sont définies et publiques. Private Sub Recapitulatif() Windows(NomClasseurRecapitulatif).Activate Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1").Formula = "=hyperlink(" & CheminClasseurEnCours & "," & INI & ")" End Sub Merci pour votre aide, Lycaon
Bonjour, J'ai exactement le même problème mais malheureusement je n'arrive apparemment à retranscrire aussi bien... J’ai une macro compliquée que j’ai simplifiée au niveau du nœud du problème. Mon but est de faire des pourcentages en fonction de l’occurrence d’une valeur. Ma formule fonctionne correctement : =NB.SI(type_café;A2)/NBVAL(type_café) « type_café » étant à la fois le nom d’une plage de cellule d'une des feuille précédente et le nom de la feuille active. Et voici le code que j’essaie de mettre ne place : Sub formule_alone() Dim ws As String ws = ActiveSheet.Name Range("B2").FormulaR1C1 = "=NB.SI(" & ws & ";A2)/NBVAL(" & ws & ")" End Sub du coup j'ai essayé: Range("B2").Formula = "=NB.SI(""" & ws & """;A2)/NBVAL(""" & ws & """)" Mais non... (et comme je ne comprend pas ce système de guillemets... Je n'arrive pas à me corriger. D'avance un grand merci à la personne qui pourrait m'avancer :)
Bonjour à tous, Toujours pareil : une erreur que je n'arrive pas à cerner et qui doit être d'une simplicité désolante. Dans la procédure suivante, j'ai la chance d'obtenir une magnifique erreur 1004 sur la ligne qui modifie la formule de la case A1. Toutes les variables que j'utilise sont définies et publiques. Private Sub Recapitulatif() Windows(NomClasseurRecapitulatif).Activate Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1").Formula = "=hyperlink(" & CheminClasseurEnCours & "," & INI & ")" End Sub Merci pour votre aide, Lycaon
Bonjour, J'ai exactement le même problème mais malheureusement je n'arrive apparemment à retranscrire aussi bien... J’ai une macro compliquée que j’ai simplifiée au niveau du nœud du problème. Mon but est de faire des pourcentages en fonction de l’occurrence d’une valeur. Ma formule fonctionne correctement : =NB.SI(type_café;A2)/NBVAL(type_café) « type_café » étant à la fois le nom d’une plage de cellule d'une des feuille précédente et le nom de la feuille active. Et voici le code que j’essaie de mettre ne place : Sub formule_alone() Dim ws As String ws = ActiveSheet.Name Range("B2").FormulaR1C1 = "=NB.SI(" & ws & ";A2)/NBVAL(" & ws & ")" End Sub du coup j'ai essayé: Range("B2").Formula = "=NB.SI(""" & ws & """;A2)/NBVAL(""" & ws & """)" Mais non... (et comme je ne comprend pas ce système de guillemets... Je n'arrive pas à me corriger. D'avance un grand merci à la personne qui pourrait m'avancer :)
