Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Affecter Valeur Cellule

Affecter Valeur Cellule

7 réponses
Avatar
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:=False
End Sub
-------------------------------------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
claude
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
-------------------------------------------------------------------------------------------------------------------





Avatar
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
-------------------------------------------------------------------------------------------------------------------




Avatar
j
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
-------------------------------------------------------------------------------------------------------------------





Avatar
j
Merci mais,

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




"claude" a écrit dans le message de news:
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


"" 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
-------------------------------------------------------------------------------------------------------------------









Avatar
claude
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
-------------------------------------------------------------------------------------------------------------------









Avatar
j
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


"" 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
-------------------------------------------------------------------------------------------------------------------








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



"claude" a écrit dans le message de news:
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


"" 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
-------------------------------------------------------------------------------------------------------------------