Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modif de plage de formule complexe

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Temjeh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Temjeh

XLDnaute Accro
Bonjour et merci d'avance

J'ai une macro qui fait plusieurs opérations dont une qui insére en activecell (ici en E62 test sur plage en haut E2:E61) qui est toujours en col E ...=SI(SOMMEPROD(NB.SI(List;E2:E61));"";"Aucun"):

...
insère ligne
...
ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(COUNTIF(List,R[-60]C:R[-1]C)),"""",""Aucun"")"
...

J'ai 23000 cell a tester et y inclure ce genre de formule. Le prob est que E2:E61 est variable! et c'est celle-là que je doit écrire a la main car le reste de la formule ne change pas

Pour ex ici la dernière cell a vérifier est facile a trouvé car elle se trouve toujours cell du dessus

ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(COUNTIF(List,R[-60]C:Activecell.offset(-1,0))),"""",""Aucun"")"

Ex: si l'activecell est E720 et qu'il y a une formule la plus proche vers le haut en E702 la plage à tester est E703:E719 ......=SI(SOMMEPROD(NB.SI(List;E703:E719));"";"Aucun") car en E702 il y a une formule comme celle-ci qui test sur plage plus haut


Ce que j'aimerais:

i=Activecell.offset(-1,0).adresse
j=Activecell.offset(-dernière sans formule,0).adresse

ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(COUNTIF(List,i:j)),"""",""Aucun"")"




Pour la cell de départ ca serait la dernière cell vers le haut de l'activecell qui na pas de formule dedans à la cell du dessus

Merci beaucoup pour une idée et plus tard si je ne suis pas clair je ferai une demo

Temjeh
 
Dernière édition:
Trier par date Trier par votes
Re : Modif de plage de formule complexe

Salut Temjeh,

Pourquoi ne pas utiliser : ActiveCell.FormulaLocal

Ce qui te permettrai d'écrire la formule très clairement :
Code: 
 Dim NLig1 As Integer, NLig2 As Integer
  NLig1 = 2: NLig2 = 61
  ActiveCell.FormulaLocal = "=SI(SOMMEPROD(NB.SI(List;E" & NLig1 & ":E" & NLig2 & "));"""";""Aucun"")"

NLig1 et NLig2 seront juste à calculer selon ce que tu veux faire !

A+
 
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Ok merci pour ce conseil

Dim NLig1 As Integer, NLig2 As Integer
NLig1 = 2
NLig2 = Activecell.offset(-1,0).row

ActiveCell.FormulaLocal = "=SI(SOMMEPROD(NB.SI(List;E" & NLig1 & ":E" & NLig2 & "));"""";""Aucun"")"

Il me manque juste le NLig1 ...une genre de boucle qui me test les cells au dessus de l'activecell et je veut la row de la ligne en dessous de la première qui a une formule (.row-1)

Merci

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Merci je doit partir mais j'ai une solution pour la cell du bas de la première avec formule

For i = ActiveCell.Row To 1 Step -1
If Range("E" & i).FormulaLocal <> "" Then
NLig1 =Activecell.offset(1,0).row
Exit Sub
End If
Next i

A+

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Rebonsoir
Voilà la final:

J'ai trouvé une pass en attendant mieux ...je delete les valeur de List donc la formule marque automatiquement Aucun (car aprés la première formule il arrète à la formule plus haute et test ...If Range("E" & i).Value = "Aucun" Then
C'est très bon mais jaimerais le vrai true ...merci

For i = ActiveCell.Row To 1 Step -1
If Range("E" & i).FormulaLocal <> "" Then
NLig1 = i + 1
Exit For
End If
Next i
NLig2 = ActiveCell.Offset(-1, 0).Row
ActiveCell.FormulaLocal = "=SI(SOMMEPROD(NB.SI(List;E" & NLig1 & ":E" & NLig2 & "));"""";""Aucun"")"

Le prob est que Range("E" & i).FormulaLocal <> "" ne test pas si il y a formule mais si cell est vide

Merci pour une dernière idée

A+

Temjeh
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Bonjour Temjeh,
Vu l'heure du dernier message, je vais te réveiller...!
J'ai peut être une solution que voici
Code: 
Private Sub CommandButton1_Click()
For i = ActiveCell.Row [COLOR=red]- 1[/COLOR] To 1 Step -1
    If Range("E" & i).FormulaLocal [COLOR=red]=[/COLOR] "" Then
    [COLOR=red]ElseIf Range("E" & i) = "Aucun" Then
[/COLOR]    NLig1 = i + 1
    Exit For
    End If
Next i
NLig2 = ActiveCell.Offset(-1, 0).Row
[COLOR=red]If NLig1 = "" Then NLig1 = 1
[/COLOR]ActiveCell.FormulaLocal = "=SI(SOMMEPROD(NB.SI(List;E" & NLig1 & ":E" & NLig2 & "));"""";""Aucun"")"
End Sub

ça reste artisanal mais ça marche.

Alors, évidemment si je mets un des membres de la liste, plus aucune formule, mais ça, c'est une autre histoire, comme disait Kipling.

Bonne journée,
Gruick
 
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Merci beaucoup

Effectivement jeme réveil ...Montréal 7AM nuageux

Ma boucle fonctionne trés bien si je supprime temporairement mes valeurs de List

On oublie tous les messages avant.

Pour plus simple comment tester dans une cell si il y a une formule ou une valeur écrite qui ne vient pas d'une formule!!! et après je l'insèrerai moi-même si c'est possible.

Merci pour toute suggestion

Temjeh
 
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Génial PierreJean,
J'y ai pensé, j'ai oublié le Cstr et le .Formula

A part ça, se perdre dans Lyon, c'est éprouvant, il y a des panneaux une fois que tu as trouvé la bonne route, sinon, tintin...mais à Paris, c'est l'inverse, tu n'as pas le temps de lire tellement il y a d'indications. Bref, c'est à vous dégoûter de quitter son pré carré pour partir à l'aventure.
Ceci dit, il y a des GPS...

Allez, amitiés à vous tous

Gruick
 
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Merci beaucoup pierrejean

Comment le mettre dans ma démo(avant de la mettre dans ma vrai feuil)

Private Sub CommandButton1_Click()
For i = ActiveCell.Row To 1 Step -1
If Range("E" & i).FormulaLocal <> "" Then
NLig1 = i + 1
Exit For
End If
Next i
NLig2 = ActiveCell.Offset(-1, 0).Row
ActiveCell.FormulaLocal = "=SI(SOMMEPROD(NB.SI(List;E" & NLig1 & ":E" & NLig2 & "));"""";""Aucun"")"
End Sub

A+

Temjeh
 
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

bonjour Temjeh

en supposant que j'aie compris
et sous reserve de test

Private Sub CommandButton1_Click()
For i = ActiveCell.Row To 1 Step -1
If Left(Cstr(Range("E" & i).FormulaLocal) ,1)= "=" Then
NLig1 = i + 1
Exit For
End If
Next i
NLig2 = ActiveCell.Offset(-1, 0).Row
ActiveCell.FormulaLocal = "=SI(SOMMEPROD(NB.SI(List;E" & NLig1 & ":E" & NLig2 & "));"""";""Aucun"")"
End Sub

ps: en cas de probleme un petit fichier serait le bienvenu
 
Vote positif 0 Vote négatif
Re : Modif de plage de formule complexe

Bonjour à tous Montréal 5:32 AM ...soleil

Oui merci beaucoup pierrejean c'est exactement ca! Le tout se fait automatiquement. Perfection!!!

Merci Gruick pour tes suggestions qui mon fait avancer avec ce code

Et enfin je renomme ma déclaration de variable(Merci Bruno)

A++

Temjeh
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
565
guiyom
G
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
617
Dégé59
D
D
  • Résolu(e)
XL 2016 problème de renvoi resultat formule recherchev en vba
Réponses
4
Affichages
564
dav30029
D
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
797
GClaire
G
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
I
  • Question Question
XL 2019 (RESOLU) Date de dernière modification d'une plage de cellule
Réponses
3
Affichages
1 K
patricktoulon
G
  • Résolu(e)
XL 2019 [Résolu] VBA inputbox sélection d'une plage de cellulle
Réponses
2
Affichages
882
grodep
G
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
520
piskely
P
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
  • Question Question
XL 2016 Passer en paramètre la zone de plage de cellules
Réponses
5
Affichages
1 K
Xavlh76
T
  • Question Question
XL pour MAC liste déroulante à choix multiple compatible PC et Mac
Réponses
2
Affichages
2 K
Tibooo
T
N
  • Question Question
XL 2016 [RESOLU] Séquençage des rafraichissement de plusieurs tables (Power Query)
Réponses
10
Affichages
5 K
Nicocotte125
N
A
  • Question Question
Insertion de formule selon cellules remplies ou pas
Réponses
3
Affichages
613
Arnaud dit Citro
A
C
  • Question Question
XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient
Réponses
2
Affichages
4 K
CD38
C
  • Question Question
Nom d'une plage défini par VBA intégré dans une formule
2 3
Réponses
44
Affichages
6 K
Daniel38
L
  • Question Question
XL 2010 Mise à jour automatique d'une plage de données d'un graphique.
Réponses
5
Affichages
2 K
job75
A
  • Question Question
Remplissage automatique selon critères (Macro)
Réponses
13
Affichages
4 K
Arnaud dit Citro
A
  • Question Question
Autres [2003] Colorer la cellule d'une plage selon le résultat d'une formule isolée en haut de la colonne
Réponses
7
Affichages
900
Potentis
L
  • Question Question
XL 2019 Saisie naturaliste basée sur code private sub de liste intuitive
2
Réponses
19
Affichages
4 K
lusert
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…