Inverser l'incrementation automatique en VBA

[lcdg]

Bonjour,

J'ai un problème simple et pourtant pas si facile que ça à résoudre.

Dans mon Range("A1:E1") j'ai des informations ( ici 1 2 3 4 5 ) et dans ma cellule F3 j'ai la formule "=A1".

Je souhaiterai trouver comment, dans le cellule F4, copier la cellule F3 pour que la formule de la cellule F4 soit "=B1".
Mais avec la fonction "copy" par exemple, la formule de F4 est automatique "=A2" ...
En effet, comme F4 est une cellule en dessous de F3, Excel pense, à tort, que je veux un décalage automatique d'une ligne vers le bas, alors qu'il me le faut d'une colonne vers la droite et de garder la même ligne.

Comment faire ? 🙂
J'ai chercher du coté de la propriété transpose du PasteSpecial mais je n'y suis pas arrivé.

Merci de votre aide

 

[Catrice]

Re : Inverser l'incrementation automatique en VBA

Bonjour,

Sans macro, en cellule F3, à recopier vers le bas :

=INDIRECT("L1C"&LIGNE()-2;FAUX)

 

[lcdg]

Re : Inverser l'incrementation automatique en VBA

Merci de ta réponse.

Effectivement, ta formule marche bien, cependant elle fait abstraction de la cellule F3. Moi, idéalement, je voudrai avoir le même résultat avec juste F3 comme référence. De plus, je préfèrerai dans mon appli que les utilisateurs puissent voir les cellules auxquels F3 et F4 ... font référence.

Si il n'y a pas de moyen de le faire simplement, j'ai déjà pensé à quelque chose de plus complexe mais c'était juste pour savoir si il y avait une petite astuce que je ne connaissais pas (bien que je ne connaissais pas la tienne non plus Catrice)

 

[Catrice]

Re : Inverser l'incrementation automatique en VBA

Re,

Tu peux également utiliser cette formule :
=DECALER($A$1;0;LIGNE()-3)

ou cette macro :

Sub Test()
For Each X In Range("A1:E1")
Range("F3").Offset(i, 0) = "=" & X.Address
i = i + 1
Next
End Sub

Voir fichier joint

NB - pas tres bien compris tout ça :
Effectivement, ta formule marche bien, cependant elle fait abstraction de la cellule F3. Moi, idéalement, je voudrai avoir le même résultat avec juste F3 comme référence. De plus, je préfèrerai dans mon appli que les utilisateurs puissent voir les cellules auxquels F3 et F4 ... font référence.

 

[lcdg]

Re : Inverser l'incrementation automatique en VBA

Re,

Du coup, je suis en train de faire autrement, mais je garde ça sous le coude, ça peut toujours servir 🙂

Merci à toi pour tes réponses.