Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

activecell.offset

6 réponses
Avatar
Denys
Bonjour,

Voici une partie de mon code:

With ActiveSheet
ActiveCell.Offset(0, 37).Value =3D "=3DDATEDIF((activecell.offset
(, 14).value),$BE$1,""M"")+1)"
End With

Evidemment, cette formule issue d'un userform doit se r=E9p=E9ter =E0 chaqu=
e
fois qu'on entre des donn=E9es. Si j'utilise formulaR1C1, je bloque =E0
cause de $BE$1 qui est statique. Mais excel ne veut pas de
(activecell.offset(, 14).value).

La date en B1 est fixe au 30 juin 2010....Celle en AL
(activecell.offset(0, 37) est variable. L'activecell est en colonne A.

Avez-vous une id=E9e de ce que je pourrais =E9crire?

Merci pour votre temps

Denys

6 réponses

Avatar
FFO
Salut à toi

Je tenterais ceci :

With ActiveSheet
ActiveCell.Offset(0, 37).FormulaLocal = "ÚTEDIF((" & ActiveCell.Offset(,
14).Value & ");$BE$1;""M"")+1"
End With

A tester

Donne moi des nouvelles !!!!
Avatar
MichDenis
Bonjour Denys,

Feuil1 est la propriété "Name" visible dans la fenêtre de l'éditeur de code à côté des
noms des onglets de feuille. Il a l'avantage d'être indifférent à la modification du nom
de l'onglet de la feuille.

With Feuil1 'à adapter
.Activate
With ActiveCell
.Offset(0, 37).Formula = "ÚTEDIF(" & _
.Offset(, 14).Address(0, 0) & "," & _
Range("B1").Address(0, 0) & ",""M"")+ 1"
End With
End With



"Denys" a écrit dans le message de groupe de discussion :

Bonjour,

Voici une partie de mon code:

With ActiveSheet
ActiveCell.Offset(0, 37).Value = "ÚTEDIF((activecell.offset
(, 14).value),$BE$1,""M"")+1)"
End With

Evidemment, cette formule issue d'un userform doit se répéter à chaque
fois qu'on entre des données. Si j'utilise formulaR1C1, je bloque à
cause de $BE$1 qui est statique. Mais excel ne veut pas de
(activecell.offset(, 14).value).

La date en B1 est fixe au 30 juin 2010....Celle en AL
(activecell.offset(0, 37) est variable. L'activecell est en colonne A.

Avez-vous une idée de ce que je pourrais écrire?

Merci pour votre temps

Denys
Avatar
Jacky
Bonjour,

Essaie
ActiveCell.Offset(0, 37).Formula = "ÚTEDIF(" & ActiveCell.Offset(,
14).Address & ",$BE$1,""M"")+1"

Ps Colonne O et cellule BE1 doivent être renseignés
--
Salutations
JJ


"Denys" a écrit dans le message de news:

Bonjour,

Voici une partie de mon code:

With ActiveSheet
ActiveCell.Offset(0, 37).Value = "ÚTEDIF((activecell.offset
(, 14).value),$BE$1,""M"")+1)"
End With

Evidemment, cette formule issue d'un userform doit se répéter à chaque
fois qu'on entre des données. Si j'utilise formulaR1C1, je bloque à
cause de $BE$1 qui est statique. Mais excel ne veut pas de
(activecell.offset(, 14).value).

La date en B1 est fixe au 30 juin 2010....Celle en AL
(activecell.offset(0, 37) est variable. L'activecell est en colonne A.

Avez-vous une idée de ce que je pourrais écrire?

Merci pour votre temps

Denys
Avatar
FFO
Salut à toi

Je tenterais ceci :

With ActiveSheet
ActiveCell.Offset(0, 37).FormulaLocal = "ÚTEDIF((" & ActiveCell.Offset(,
14).Value & ");$BE$1;""M"")+1"
End With

A tester

Donne moi des nouvelles !!!!


"Denys" a écrit :

Bonjour,

Voici une partie de mon code:

With ActiveSheet
ActiveCell.Offset(0, 37).Value = "ÚTEDIF((activecell.offset
(, 14).value),$BE$1,""M"")+1)"
End With

Evidemment, cette formule issue d'un userform doit se répéter à chaque
fois qu'on entre des données. Si j'utilise formulaR1C1, je bloque à
cause de $BE$1 qui est statique. Mais excel ne veut pas de
(activecell.offset(, 14).value).

La date en B1 est fixe au 30 juin 2010....Celle en AL
(activecell.offset(0, 37) est variable. L'activecell est en colonne A.

Avez-vous une idée de ce que je pourrais écrire?

Merci pour votre temps

Denys



Avatar
MichDenis
Oups,
Une légère modification dans la formule

With ActiveCell
.Offset(0, 37).Formula = "ÚTEDIF(" & _
.Offset(, 14).Address(0, 0) & "," & _
Range("B" & .Row).Address(0, 0) & ",""M"")+ 1"
End With



"MichDenis" a écrit dans le message de groupe de discussion :

Bonjour Denys,

Feuil1 est la propriété "Name" visible dans la fenêtre de l'éditeur de code à côté des
noms des onglets de feuille. Il a l'avantage d'être indifférent à la modification du nom
de l'onglet de la feuille.

With Feuil1 'à adapter
.Activate
With ActiveCell
.Offset(0, 37).Formula = "ÚTEDIF(" & _
.Offset(, 14).Address(0, 0) & "," & _
Range("B1").Address(0, 0) & ",""M"")+ 1"
End With
End With



"Denys" a écrit dans le message de groupe de discussion :

Bonjour,

Voici une partie de mon code:

With ActiveSheet
ActiveCell.Offset(0, 37).Value = "ÚTEDIF((activecell.offset
(, 14).value),$BE$1,""M"")+1)"
End With

Evidemment, cette formule issue d'un userform doit se répéter à chaque
fois qu'on entre des données. Si j'utilise formulaR1C1, je bloque à
cause de $BE$1 qui est statique. Mais excel ne veut pas de
(activecell.offset(, 14).value).

La date en B1 est fixe au 30 juin 2010....Celle en AL
(activecell.offset(0, 37) est variable. L'activecell est en colonne A.

Avez-vous une idée de ce que je pourrais écrire?

Merci pour votre temps

Denys
Avatar
Denys
Wow !!! Quel service !!!

Merci infiniment à vous tous !!!

Bonne journée

Denys