Discussion :

[nicolas.carvalho]

Bonjour,

j'ai un souci avec cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Range("AA2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-24]=1,""AOI1"",IF(RC[-23]=1,""AOI2"",IF(RC[-22]=1,""AOI3"",IF(RC[-21]=1,""AOI4"",IF(RC[-20]=1,""AOI5"",IF(RC[-19]=1,""AOI6"",IF(RC[-18]=1,""AOI7"",IF(RC[-17]=1,""AOI8"",IF(RC[-16]=1,""AOI9"",IF(RC[-15]=1,""AOI10"",IF(RC[-14]=1,""AOI11"",IF(RC[-13]=1,""AOI12"",IF(RC[-12]=1,""AOI13"",IF(RC[-11]=1,""AOI14"",IF(RC[-10]=1,""AOI15"",IF(RC[-9]=1,""AOI16"",IF(RC[-8]" & _
        "17"",IF(RC[-7]=1,""AOI18"",IF(RC[-6]=1,""AOi19"",IF(RC[-5]=1,""AOI20"",IF(RC[-4]=1,""AOI21"",IF(RC[-3]=1,""AOI22"",IF(RC[-2]=1,""AOI23"",IF(RC[-1]=1,""AOI24"",""""))))))))))))))))))))))))"
    Range("AA2").Select
    Selection.AutoFill Destination:=Range("AA2:AA300438")
    Range("AA2:AA300438").Select

je ne comprend pas pourquoi, et ce que cela peux venir de la suite trop grande de fonction IF?
lorsque j'en met moins cela marche.
auriez vous une solution.
merci.

[unparia]

Bonjour
Tu le dis toi-même : formule trop longue
Solution 1 : une fonction personnalisée (elle sera utilisable comme n'importe quelle autre formule)
Solution 2 : traiter directement par VBA
Je préfère la seconde car il n'est jamais heureux de mélanger dans un même projet Formules et VBA

[nicolas.carvalho]

ok,

je ne connais pas rand chose en VBA, c'est une macro que j'ai enregistré automatiquement.
des conseils?

Merci

[unparia]

des conseils ?

Oui. Et un seul : t'intéresser à VBA (thème de cette section du forum)
Car dans un cas (fonction personnalisée) comme dans l'autre (tout en VBA), il ne s'agit de rien d'autre que d'expressions conditionnelles simples (et au demeurant assez similaires quel que soit le langage de développement)

[Promethee25]

Bonjour,

Ta formule est complexe sans que ce soit nécessaire.

Il te faut quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="AOI" & EQUIV(1; C2:Z2; 0)

(vérifie si la plage est ok, j'ai toujours du mal avec la notation R1C1... :p)

[joe.levrai]

Bonjour,

(vérifie si la plage est ok, j'ai toujours du mal avec la notation R1C1... :p)

Petit mémo :

R = Ligne || C = Colonne (ok j'ai rien appris à quiconque là)
[] signifie qu'on travaille en position relative par rapport à la cellule où est écrite la formule

RC = référence de la cellule où est écrite la formule
RxCx = lignes et colonne numéro x en notation absolue ==> pour x = 1, quelque soit la position de départ ou d'arrivée, on est sur $A$1
R[x]C[x] = décalage de x lignes et x colonnes par rapport à la cellule où est située la formule ==> pour x = 1 et une formule écrite en B2, la référence est C3

[casefayere]

Bonjour,
par macro, sans formule, mais je doute du temps d'execution pour plus de 300 000 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
Dim Dercel As Range, Tb, x As Long, y As Long
With Sheets("Feuil1") 'à changer par le nom de la feuille
  Set Dercel = .Range("C" & .Rows.Count).End(xlUp) 'derniere cellule utilisée en col C
  Tb = .Range("C2", Dercel(1, 25)) 'un tableau qui contient les valeurs des colonnes (de C à z) + colonne vide "AA"
  For x = 1 To UBound(Tb, 1)
    For y = 1 To 24
      If Tb(x, y) = 1 Then Tb(x, 25) = "AOI" & y': Exit For à voir
    Next y
  Next x
  .Range("C2").Resize(UBound(Tb, 1), UBound(Tb, 2)) = Tb
End With
End Sub

[nicolas.carvalho]

merci casefayere

ton code marche sans souci, c'est exactement ce qu'il me fallait.
c'est super.

comme tu dit çela prend un peux de tps sur mes fichiers de plus de 800000 lignes.

Résolu.

[Promethee25]

Tu n'as pas essayé avec EQUIV?
L'avantage est qu'avec une formule, tes cases se mettront automatiquement à jour si tes cellules sources changent de valeur (si tant est que ça puisse arriver dans ton cas).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("AA2").Formula = "=INDIRECT(""AOI"" & MATCH(1, C2:Z2, 0))"
    Range("AA2").Select
    Selection.AutoFill Destination:=Range("AA2:AA300438")
    Range("AA2:AA300438").Select

Le risque est que ce soit lourd avec INDIRECT.

Edit: INDEX serait peut-être plus appropriée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("AA2").Formula = "=INDEX(AOI:AOI, MATCH(1, C2:Z2, 0))"

[nicolas.carvalho]

je vais essayer cette fct voir si elle marche aussi.
mais je ne devrais pas avoir de changement dans ma table.

merci Promethee25

[Invité]

Bonjour,
Pour information, le nombre de caractères sur une même linge de code en vba est limité.

Place ta formule dan un string et affecte ce string a ta cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim formule as string
Formule ="=IF(RC[-24]=1,""AOI1"",IF(RC[-"
Formule=Formule & "17"",IF(RC[-7]=1,""AOI18"",IF(RC[-6..."
ActiveCell.FormulaR1C1 = formule