Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Quelle est l'equivalent de la fonction decaler en anglais?

822 views
Skip to first unread message

Vincent THOMAS

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to

Bonjour,

Quelqu'un pourrait il me dire quelle la fonction qui correspond à la fonction
DECALER dans la version anglaise de Excel97?

Merci d'avance

ChrisV

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to

Bonjour,

=OFFSET()

Pour une traduction des fonctions "français --> anglais", tu peux utiliser
le fichier listevba.xls qui te donne la correspondance des formules.

ChrisV


"Vincent THOMAS" <vincent...@cail.lu> a écrit dans le message news:
18e101c027c6$1c7dfac0$46862ecf@cpmsftngxa06...

Vincent THOMAS

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to

Un grand merci Chris.

Vincent

Bonjour,

=OFFSET()

ChrisV

Bonjour,

Merci d'avance


.


Joel Gaudin

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to
offset

Vincent THOMAS <vincent...@cail.lu> a écrit dans le message :

STéphane

unread,
Sep 26, 2000, 3:00:00 AM9/26/00
to

Bonsoir


le temps que j'envoie ce message tu as du recevoir un paquet de réponse, je
t'envoie donc quelques exemples de la fonctoin décaler/offset :

===========================================================

Imaginons que ta cellule de référence s'appelle Origine
Range(Origine).Select
ActiveCell.Offset(Ligne, Colonne).Select
- Offset représente le décalage depuis la cellule de référence.
Ex : ActiveCell.Offset( 3, 4).Select
ActiveCell.Offset(-2,-1).Select

==============================================================
With Range("B4")
Range(.End(xlToRight), .End(xlDown).Offset(-1, 0)).Select
End With

( ou encore
With Range("B4")
Range(.End(xlToRight), .End(xlDown)(0, 1)).Select
End With)

=================================================
Suppose your text is in Coloumn 1 in Sheet1 starting in A1. Tis macro
searchs through the coloumn and substitutes "MyText" with "Other". It stops
when it finds the first empty cell.

Sub SearchAndChange()
Worksheets("Sheet1").Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "MyText" Then
ActiveCell.Value = "Other"
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

==========================================================


--
STéphane
- en plein sport en chambre avec Pentium III -

Site Web : http://touareg.citeweb.net/

0 new messages