Discussion :

[gimgim]

Bjr,
j'applique la méthode à partir d'une sélection :
- si elle comporte plusieurs lignes, pas de pb,
- si ma sélection ne contient qu'une seule ligne, ca plante (ERR 1004: la méthode de la classe Range a échoué)

Dans mon exemple suivant, si NbrIndivi=2 ca plante, si NbrIndivi>2 c'est OK :

Code :

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

1
2
3
Range("W2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-16],"","",RC[-14])"
    Selection.AutoFill Destination:=Range("W2:W" & NbrIndivi), Type:=xlFillDefault

A priori, y'aurait 1 souci sur la Destination si le Range porte sur 1 seule cellule et non pas une plage? quelle solution pour résoudre mon pb ?

NB : la destination est en fonction de ma selection préalable, qui peut varier d'une à plusieurs lignes, et qui se traduit par 1 cellule ou 1 plage.

Merci d'avance.

[JPierreM]

Bonjour,

NbrIndivi=2 ca plante, si NbrIndivi>2 c'est OK

quand NbrIndivi=2

Code :

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

Destination:=Range("W2:W" & NbrIndivi)

devient

Code :

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

Destination:=Range("W2:W2")

ce qui n'est pas normal puisque la destination se fait sur elle-même

[gimgim]

Effectivement cela mérite plus de détails :

je créé d'abord un filtre auto sur la colonne A (qui me rend 1 ou plusieurs lignes = NbrIndivi).
Ensuite j'applique ma formule en W2 portant sur 1 concaténation de 2 autres cellules en G2 & I2 (nom & prenom).
Puis la destination est en fonction de mon filtre:
- si j'ai plusieurs individus, la concatenation s'incremente bien,
- si je n'ai qu'1 seul individu, ca ne marche plus.

Comment peut on faire ?
merci.

[mercatog]

Code :

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

if NbrIndivi>2 then range("w2").AutoFill Destination:=Range("W2:W" & NbrIndivi)

[gimgim]

si NbrIndivi>2,la concatenation s'incremente bien
mais
si NbrIndivi=2, c'est la que ca pose pb !

Cdlt.

[mercatog]

Code :

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

if NbrIndivi>1 then range("w2").AutoFill Destination:=Range("W2:W" & NbrIndivi+1)

[gimgim]

merci pour les infos,
mais le test if ne distingue pas le cas NbrIndivi = 2 qui plante du cas NbrIndivi >2.
Après recherches, un semblant de solution apparait :

Code :

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

1
2
3
Plage = "W2:W" & NbrIndivi
If NbrIndivi = 2 Then Plage = "W1:W" & NbrIndivi
    Selection.AutoFill Destination:=Range(Plage)