Affecter Valeur Cellule

Le
j
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2 de
la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au lei
de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
-
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" & Colonne
& "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
claude
Le #18124301
bonsoir
excel n'aime pas ce raccourci
Sheets("Feuil3").Activate.Range("A2").Value = Formule1

il te faut décomposer
Sheets("Feuil3").select (ou activate, comme tu préfères)
Range("A2")= Formule1
:-)
claude


"" 4942c53f$0$16798$
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2 de
la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au
lei de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" &
Colonne & "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------





LSteph
Le #18124291
Bonjour,

tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!

--
lSteph

a écrit :
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2 de
la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au lei
de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" & Colonne
& "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------




j
Le #18124471
Excusez moi !!
C'est ok pour le précédent fil, c'est un autre pb, certes de la meme macro
que je souhaite améliorer
d'avance merci pour ton aide



"LSteph"
Bonjour,

tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!

--
lSteph

a écrit :
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2
de la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au
lei de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" &
Colonne & "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------





j
Le #18124461
Merci mais,

J'ai fait et ça plante toujours sur Range("A2")=Formule1




"claude" 4942c7e1$0$1972$
bonsoir
excel n'aime pas ce raccourci
Sheets("Feuil3").Activate.Range("A2").Value = Formule1

il te faut décomposer
Sheets("Feuil3").select (ou activate, comme tu préfères)
Range("A2")= Formule1
:-)
claude


"" 4942c53f$0$16798$
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2
de la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au
lei de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" &
Colonne & "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------









claude
Le #18125281
bonsoir
c'est quoi ce "formule1" (voiture, hôtel)
je vois de colonne 2 à colonne 10000
vu qu'il n'y a que 256 colonnes dans excel ...
je ne comprends pas
explique plutôt ce que tu veux faire en français clair :après ce sera plus
simple
:))
claude


"" 4942cb9a$0$22058$
Excusez moi !!
C'est ok pour le précédent fil, c'est un autre pb, certes de la meme macro
que je souhaite améliorer
d'avance merci pour ton aide



"LSteph"
Bonjour,

tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!

--
lSteph

a écrit :
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2
de la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au
lei de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" &
Colonne & "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------









j
Le #18125271
J'ai fais des essais et cette ligne marche bien :
Range("A2").FormulaLocal = "=NB.SI(feuil1!$" & Colonne & "$2:$" & Colonne &
"$20;" & Colonne & "2)=1"

Par contre quand je veux la remplacer par :
Formule1 = "=NB.SI(feuil1!$" & Colonne & "$2:$" & Colonne & "$20;" & Colonne
& "2)=1"
Range("A2").FormulaLocal = Formule1

ça marche pas ???

Si qq peut m'aider merci


"" 4942cb9a$0$22058$
Excusez moi !!
C'est ok pour le précédent fil, c'est un autre pb, certes de la meme macro
que je souhaite améliorer
d'avance merci pour ton aide



"LSteph"
Bonjour,

tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!

--
lSteph

a écrit :
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2
de la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au
lei de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" &
Colonne & "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------








j
Le #18125461
Non,
10000 c'est les lignes !!!!!!!!!!!!
voir le post suivant
Merci quand meme
Bonne soirée



"claude" 4942e9e2$0$20807$
bonsoir
c'est quoi ce "formule1" (voiture, hôtel)
je vois de colonne 2 à colonne 10000
vu qu'il n'y a que 256 colonnes dans excel ...
je ne comprends pas
explique plutôt ce que tu veux faire en français clair :après ce sera plus
simple
:))
claude


"" 4942cb9a$0$22058$
Excusez moi !!
C'est ok pour le précédent fil, c'est un autre pb, certes de la meme
macro que je souhaite améliorer
d'avance merci pour ton aide



"LSteph"
Bonjour,

tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!

--
lSteph

a écrit :
Bonsoir,

Dans cette macro je n'arrive pas a affecter la formule1 a la cellule A2
de la feuille 3 !!
Si il y a plus simple aussi je suis preneur pour utiliser le critere au
lei de voulir l'affecter a une cellule est l'utiliser dans
le filtre éléborée

Merci de votre aide
----------------------------------------------------------------------------------------------------------------
Sub Macro1()

Colonne = InputBox("Saisissez la colonne", "Colonne")
Formule1 = "=NB.SI(Feuil1!" & Colonne & "2:" & Colonne & "10000;" &
Colonne & "2)=1"

Worksheets("Feuil2").[A1:Z10000].ClearContents

Sheets("Feuil3").Activate.Range("A2").Value = Formule1

Sheets("Feuil1").Activate


Plage1 = "feuil3!A1:A2"


Range("A1:C10000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
Plage1), CopyToRange:=Range("feuil2!A1"), Unique:úlse
End Sub
-------------------------------------------------------------------------------------------------------------------













Publicité
Poster une réponse
Anonyme