Incrementer une formule... formule ? ou VBA ?

JNP

XLDnaute Barbatruc

• 2 Novembre 2011

• #2

Re : Incrementer une formule... formule ? ou VBA ?

Bonjour Choupi_nette 🙂,

Code:

=INDIRECT("Sheet1!"&CAR(67+LIGNES($1:1))&"6")

à glisser vers le bas 😛...
Bises 😎
Ajout : Si tu vas au delà de Z6, il va falloir faire un peu plus compliqué 🙄

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 2 Novembre 2011

• #3

Re : Incrementer une formule... formule ? ou VBA ?

Bonjour,

S'il s'agit de recopier vers le bas, tu peux essayer ceci :

Code:

=INDEX($6:$6;LIGNES($1:4))

à recopier vers le bas

@+

Edit : Bing ! Salut Jean-Noël 🙂

@+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 2 Novembre 2011

• #4

Re : Incrementer une formule... formule ? ou VBA ?

Coucou

Pour incrémenter les lignes au delà de Z, au cas ou cela intéresse:

VB:

Public Function Conv_Lettre_Num(ByVal Lettre As String) As Long
'converti AA en 27
Dim nb As Integer
  nb = Len(Lettre)
  If nb > 1 Then Conv_Lettre_Num = Conv_Lettre_Num(Left(Lettre, nb - 1)) * 26
  Conv_Lettre_Num = Conv_Lettre_Num + Asc(Right(Lettre, 1)) - Asc("A") + 1
End Function

Public Function Conv_Num_Lettre(ByVal Nombre As Long) As String
'converti 27 AA
Dim tp As Integer
  tp = Nombre / 26
  If Nombre > 26 Then Conv_Num_Lettre = Conv_Num_Lettre(Nombre / 26)
  Conv_Num_Lettre = Conv_Num_Lettre + Chr(Nombre - tp * 26 + Asc("A") - 1)
End Function

Tiens moi au courant...

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2011

• #5

Re : Incrementer une formule... formule ? ou VBA ?

Excellent...
Merci beaucoup tu me sauves là

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2011

• #6

Re : Incrementer une formule... formule ? ou VBA ?

J'avais pas vu toutes les reponses entre temps
Merci à JNP, Tibo, tbft,

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Novembre 2011

• #7

Re : Incrementer une formule... formule ? ou VBA ?

Re, salut Tibo, TbFt 🙂,
Tibo, excellent, j'ai encore été chercher loin ce qui était tout près 😱...
Mais ne serait-ce pas plutôt 😉

Code:

=INDEX(Sheet1!$6:$6;LIGNES($1:4))

A + 😎

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 2 Novembre 2011

• #8

Re : Incrementer une formule... formule ? ou VBA ?

Re coucou Choupi_nette

J'ai oublié de dire que c'est une fonction récursive....

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Novembre 2011

• #9

Re : Incrementer une formule... formule ? ou VBA ?

Bonjour à tous

tbft Pas besoinde recursif !!!

Code:

Public Function Conv_Lettre_Num(ByVal Lettre As String) As Long
 Conv_Lettre_Num = Range(Lettre & 1).Column
End Function
Public Function Conv_Num_Lettre(ByVal Nombre As Long) As String
 Conv_Num_Lettre = Replace(Cells(1, Nombre).Address(0, 0), 1, "")
End Function

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2011

• #10

Re : Incrementer une formule... formule ? ou VBA ?

récursive....
Je vais mediter un peu la dessus parce que wikipedia me donne une reponse du genre :

"qui peut s'appeler elle-même au cours de son exécution"

Dois-je en deduire quelque chose ?? lol

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2011

• #11

Re : Incrementer une formule... formule ? ou VBA ?

Bonjour Pierrejean,

Ca s'utilise comment ta macro ??

Merci

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Novembre 2011

• #12

Re : Incrementer une formule... formule ? ou VBA ?

Re 🙂,

choupi_nette à dit:

récursive....
Je vais mediter un peu la dessus parce que wikipedia me donne une reponse du genre :

"qui peut s'appeler elle-même au cours de son exécution"

Dois-je en deduire quelque chose ?? lol

Cliquez pour agrandir...

Que la solution de Tibo est plus simple 😛...
Autrement, la recursivité ne pose pas de problème à l'utilisateur, elle en pose généralement plus au programmeur 🙄...
Sinon, pour la compréhension, disons que c'est une boucle de fonctions 😉 :
Exemple :

Code:

Function Addition(I As String) As String
If Len(I) = 1 Then Addition = I Else Addition = Right(I, 1) + Addition(Left(I, Len(I) - 1)) * 1
End Function

Fonction qui sert à rien 😱, mais pour expliquer :
Si tu envois 1 : dès le test, elle renvoie 1.
Si tu envois 11 : elle va traiter 1 et envoyer à la fonction qui lui renvoie 1 aussi vu que le test est ok, donc résultat 2.
Si tu envois 111 : elle envoie 11 à la fonction qui elle même renvoie 1 à la fonction, et ça renvoie 3.
Et ainsi de suite 😛...
Bises 😎

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2011

• #13

Re : Incrementer une formule... formule ? ou VBA ?

Que la solution de Tibo est plus simple ..

Cliquez pour agrandir...

j'ai utilisé celle là donc ca va je suis allée au plus simple et ca me va tres bien

merci a tous pour vos réponses plus que completes

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Novembre 2011

• #14

Re : Incrementer une formule... formule ? ou VBA ?

Re

Et Bravo JNP (d'ici quelques Toussaints je finirais bien par saisir le recursif)

@ Choupi_nette
etudie le fichier ci-joint

 

Pièces jointes

• pour_choupinette.zip

  12.3 KB · Affichages: 59

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 2 Novembre 2011

• #15

Re : Incrementer une formule... formule ? ou VBA ?

Salut Pierrejean

J'ai écrit cette macro a la base pour travailler sur les indices de documents et pour travailler sur les colonnes d'excel....
Voici toute l'histoire...

 

Vote positif 0 Vote négatif