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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
Bonjour,
tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!
--
lSteph
j@b 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
-------------------------------------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------------------------------------
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
"" a écrit dans le message de news:
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
-------------------------------------------------------------------------------------------------------------------
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
"j@b" <jb@free.fr> a écrit dans le message de news:
4942c53f$0$16798$426a34cc@news.free.fr...
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
-------------------------------------------------------------------------------------------------------------------
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
"" a écrit dans le message de news:
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
-------------------------------------------------------------------------------------------------------------------
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" a écrit dans le message de news: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
-------------------------------------------------------------------------------------------------------------------
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uieEbdJXJHA.4384@TK2MSFTNGP03.phx.gbl...
Bonjour,
tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!
--
lSteph
j@b 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
-------------------------------------------------------------------------------------------------------------------
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" a écrit dans le message de news: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
-------------------------------------------------------------------------------------------------------------------
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" a écrit dans le message de news: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
-------------------------------------------------------------------------------------------------------------------
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uieEbdJXJHA.4384@TK2MSFTNGP03.phx.gbl...
Bonjour,
tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!
--
lSteph
j@b 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
-------------------------------------------------------------------------------------------------------------------
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" a écrit dans le message de news: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
-------------------------------------------------------------------------------------------------------------------
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
"" a écrit dans le message de news:
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" a écrit dans le message de news: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
-------------------------------------------------------------------------------------------------------------------
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
"j@b" <jb@free.fr> a écrit dans le message de news:
4942cb9a$0$22058$426a34cc@news.free.fr...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uieEbdJXJHA.4384@TK2MSFTNGP03.phx.gbl...
Bonjour,
tu as déjà fait un précédent fil pour cela
commence donc par donner un retour!
--
lSteph
j@b 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
-------------------------------------------------------------------------------------------------------------------
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
"" a écrit dans le message de news:
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" a écrit dans le message de news: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
-------------------------------------------------------------------------------------------------------------------