Echec Autofill sur Range

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:

---

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.

Bonjour,

Citation:

---

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

---

quand NbrIndivi=2

Code:

---

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

---

devient

Code:

---

Destination:=Range("W2:W2")

---

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

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.

Code:

---

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

---

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

Cdlt.

Code:

---

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

---

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:

---

1 2 3

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

---