Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Formule dans une cellule via VB

Formule dans une cellule via VB

8 réponses
Avatar
Didier
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" & ");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,

Pour le début, modifie comme cela

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""


Quel est la formule que tu souhaites mettre en colonne J ??
--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n




Avatar
Didier
Merci Jacky
C'est ça pour la ligne 38

=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"";H38*I38)

Je ne suis pas obligé de mettre format(n) ?

Didier


"Jacky" wrote in message
news:%
Bonsoir,

Pour le début, modifie comme cela

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""


Quel est la formule que tu souhaites mettre en colonne J ??
--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n








Avatar
Daniel.C
Bonsoir.
Essaie :

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""
Worksheets("PRINT").Range("J" & n).Formula = "=IF(OR(I" & n &
"=""BL"",I" & n & "=" & """PW"",I" & _
n & "=" & """RW"",I" & n & "=""MW""),""v"",H" & _
n & "*I" & n & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n

Cordialement.
Daniel
"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n




Avatar
Didier
Super ça marche
Merci beaucoup
Didier
"Daniel.C" wrote in message
news:%
Bonsoir.
Essaie :

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""
Worksheets("PRINT").Range("J" & n).Formula = "=IF(OR(I" & n &
"=""BL"",I" & n & "=" & """PW"",I" & _
n & "=" & """RW"",I" & n & "=""MW""),""v"",H" & _
n & "*I" & n & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n

Cordialement.
Daniel
"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n








Avatar
Jacky
Re...
Je ne suis pas obligé de mettre format(n) ?
NON

Un peu plus simplifié
'------------
With Worksheets("PRINT")
For n = 38 To 55
.Range("C" & n) = ""
.Range("H" & n) = ""
.Range("I" & n) = ""
.Range("J" & n).Formula = _
"=IF(OR(I" & n & "=""BL"",I" & n & "=" & """PW"",I" & _
n & "=" & """RW"",I" & n & "=""MW""),"""",H" & _
n & "*I" & n & ")"
.Range("K" & n) = ""
Next n
End With
'------------------

--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d83995$0$862$
Merci Jacky
C'est ça pour la ligne 38

=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"";H38*I38)

Je ne suis pas obligé de mettre format(n) ?

Didier


"Jacky" wrote in message
news:%
Bonsoir,

Pour le début, modifie comme cela

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""


Quel est la formule que tu souhaites mettre en colonne J ??
--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les
colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n












Avatar
Daniel.C
Dans ta formule initiale, tu avais :
=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"v";H38*I38)
("v" au lieu de "")
Daniel

"Didier" a écrit dans le message de news:
47d83995$0$862$
Merci Jacky
C'est ça pour la ligne 38

=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"";H38*I38)

Je ne suis pas obligé de mettre format(n) ?

Didier


"Jacky" wrote in message
news:%
Bonsoir,

Pour le début, modifie comme cela

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""


Quel est la formule que tu souhaites mettre en colonne J ??
--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les
colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I" &
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n












Avatar
Jacky
Bonsoir Daniel

V ou pas V , je crois que Didier avait plus un problème de syntaxe que de
formule.
Content d'avoir la bonne (syntaxe) il ne pense déjà plus à ce fil .
;o)))
--
Salutations
JJ


"Daniel.C" a écrit dans le message de news:

Dans ta formule initiale, tu avais :
=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"v";H38*I38)
("v" au lieu de "")
Daniel

"Didier" a écrit dans le message de news:
47d83995$0$862$
Merci Jacky
C'est ça pour la ligne 38

=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"";H38*I38)

Je ne suis pas obligé de mettre format(n) ?

Didier


"Jacky" wrote in message
news:%
Bonsoir,

Pour le début, modifie comme cela

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""


Quel est la formule que tu souhaites mettre en colonne J ??
--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les
colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je
coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I"
&
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n
















Avatar
Daniel.C
Bonsoir.
Tu as bien raison. De toutes façons, il n'a que l'embarras du choix.
Daniel
"Jacky" a écrit dans le message de news:
%
Bonsoir Daniel

V ou pas V , je crois que Didier avait plus un problème de syntaxe que de
formule.
Content d'avoir la bonne (syntaxe) il ne pense déjà plus à ce fil .
;o)))
--
Salutations
JJ


"Daniel.C" a écrit dans le message de news:

Dans ta formule initiale, tu avais :
=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"v";H38*I38)
("v" au lieu de "")
Daniel

"Didier" a écrit dans le message de news:
47d83995$0$862$
Merci Jacky
C'est ça pour la ligne 38

=SI(OU(I38="BL";I38="PW";I38="RW";I38="MW");"";H38*I38)

Je ne suis pas obligé de mettre format(n) ?

Didier


"Jacky" wrote in message
news:%
Bonsoir,

Pour le début, modifie comme cela

For n = 38 To 55
Worksheets("PRINT").Range("C" & n) = ""
Worksheets("PRINT").Range("H" & n) = ""
Worksheets("PRINT").Range("I" & n) = ""


Quel est la formule que tu souhaites mettre en colonne J ??
--
Salutations
JJ


"Didier" a écrit dans le message de news:
47d833ec$0$876$
Salut à tous,
Je souhaite faire ça (voir en dessous) c'est à dire effacer les
colonnes
C,H,I,K de 38 à 55 et pour J je souhaite mettre une formule.
Mais cela ne marche pas. La syntaxe me semble juste. Mais là je
coince.
Merci d'avance pour votre aide.

For n = 38 To 55
Worksheets("PRINT").Range("C" & Format(n)) = ""
Worksheets("PRINT").Range("H" & Format(n)) = ""
Worksheets("PRINT").Range("I" & Format(n)) = ""
Worksheets("PRINT").Range("J" & Format(n)).Formula = "=IF(OR(I" &
Format(n) & "=" & """BL""" & ";I" & Format(n) & "=" & """PW""" & ";I"
&
Format(n) & "=" & """RW""" & ";I" & Format(n) & "=" & """MW""" &
");""v"";H"
& Format(n) & "*I" & Format(n) & ")"
Worksheets("PRINT").Range("K" & Format(n)) = ""
Next n