Formule a modifier

[Super Randonneur]

Bonjour,
J'utilise cette formule
=NBVAL(Données!$A$2:$A$7)-NB.VIDE(Données!$A$2:$A$7)

Cette formule est en A1, je voudrais que quand je la tire en A2 elle devienne
=NBVAL(Données!$B$2:$B$7)-NB.VIDE(Données!$B$2:$B$7)

ainsi de suite pour A3 etc...

Merci de votre aide

 

[wilfried_42]

Re : Formule a modifier

Bonjour

ce sont les $ dans les adresses, tu as 1 $ pour la ligne et 1 pour la colonne
Quand on met un $ c'est que l'on veut figer soit la ligne soit la colonne, quand on met les 2, on fige la cellule

$A1:$G2 : fige la colonne A et la colonne G, quand je tire la formule vers le bas, les ligne evoluent

adresse de cellule : 4 etats :A1; $A$1; $A1; A$1

oups : j'ai mal lu, tu veux faire evoluer les colonnes en tirant vers le bas ?

 

[Tibo]

Re : Formule a modifier

Bonjour,

Il s'agit, si j'ai bien compris, d'incrémenter les colonnes tout en recopiant vers le bas.

Si ta formule est en ligne 1 d'un autre onglet, peut-être cette formule :

=NBVAL(DECALER(Données!$A$2;;LIGNE();6))-NB.VIDE(DECALER(Données!$A$2;;LIGNE();6))

Une adaptation peut être a prévoir au niveau de LIGNE() si ta formule n'est pas en ligne 1. par exemple : LIGNE()-5 si ta formule est en ligne 6

Si pas ça, reviens avec plus de détails

@+

 

[wilfried_42]

Re : Formule a modifier

re:

=NBVAL(Données!$A$2:$A$7)-NB.VIDE(Données!$A$2:$A$7)

devient (si tu mets en ligne 2 ---Pour le -2)

=Nbval(decaler(données!$A$2:$A$7;0;ligne()-2))-nb.vide(données!$A$2:$A$7;0;ligne()-2))

oups : bonjour Tibo, désolé pour la collision

 

[JCGL]

Re : Formule a modifier

Bonjour à tous,
Salut Wil,
Salut Tibo,

Un essai avec Indirect() et Car() :

=NBVAL(INDIRECT("Données!"&CAR(LIGNE()+64)&"$2:$"&CAR(LIGNE()+64)&"$7"))-NB.VIDE(INDIRECT("Données!"&CAR(LIGNE()+64)&"$2:$"&CAR(LIGNE()+64)&"$7"))

En A1 et tirer vers le bas (limité à 26 lignes)

A+ à tous

 

[Super Randonneur]

Re : Formule a modifier

Re, bonjour à vous,
Je voudrais "simplement" tirer la formule vers le bas et qu'il n'y est que la colonne qui évolue de A à Z...

Merci de votre aide

 

[Tibo]

Re : Formule a modifier

re,

ce que tu demandes n'est, à ma connaissance, pas faisable.

Il faut user de subterfuge via les fonctions DECALER ou INDIRECT comme nous te l'avons proposé.

Ou alors, il faut modifier manuellement les formules, et là, bon courage

@+

 

[JCGL]

Re : Formule a modifier

Bonjour à tous,

Les formule proposées devraient répondre à ta demande.

Est-ce le cas ?

A+

 

[Super Randonneur]

Re : Formule a modifier

Ou alors, il faut modifier manuellement les formules, et là, bon courage

C'est bien là le problème 😀, je vais chercher...

 

[Super Randonneur]

Re : Formule a modifier

Re, bonjour à tous,
Je suis toujours entrain de chercher une solution, je suis sur la piste de contourner l'obstacle. Je m'explique : je pense copier ma formule sur la droite comme ça la colonne change comme je le veux et ensuite copier cette nouvelle formule en mettant des $ pour la rebasculer dans la cellule d'origine. Dans la logique ça marche avec ce code

Sub trans()
'
' trans Macro
'

'
    Range("G1").End(xlDown).Offset(0, 0).Select
    Selection.Copy
    Range("H1").End(xlDown).Offset(0, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=INDEX(Données!R2C1:R7C1,MATCH(LOOKUP(9^9,Données!R2C1:R7C1),Données!R2C8:R7C8))"
    Range("H1").End(xlDown).Offset(0, 0).Select
    Selection.Copy
    Range("G1").End(xlDown).Offset(0, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=INDEX(Données!R2C1:R7C1,MATCH(LOOKUP(9^9,Données!R2C1:R7C1),Données!R2C[1]:R7C[1]))"
    Range("H1").End(xlDown).Offset(0, 0).Select
    Selection.ClearContents
End Sub

Le problème est que dans ma formule ( par exemple Données!G$2:G$7 à passer en H est variable je peux avoir Données!W$2:W$7 à passer en X, etc... )

La question est : est-il possible de mettre une variable aux cellules dans mon code ?

Merci d'avance

 

[13GIBE59]

Re : Formule a modifier

Bonjour, Super Randonneur.

Peut-être, si j'ai bien compris,😕 une solution plus simple pour toi :

Après avoir supprimé les $ devant les lettres de tes colonnes et tiré ta formule vers la droite, pourquoi ne pas sélectionner l'ensemble de tes cellules et faire un collage transposé ? (Copier->Collage spécial->Transposé)

A+

JB

 

[Super Randonneur]

Re : Formule a modifier

Bonjour 13GIBE59,
Tu as tout compris 😀, j'ai testé et c'est parfait.

Merci à toi