Formule dans une cellule via VB

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #5183431
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" 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




Didier
Le #5183421
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" 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" 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








Daniel.C
Le #5183411
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" 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




Didier
Le #5183391
Super ça marche
Merci beaucoup
Didier
"Daniel.C" 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" 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








Jacky
Le #5183381
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" 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" 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" 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












Daniel.C
Le #5183371
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" 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" 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" 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












Jacky
Le #5183361
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"
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" 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" 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" 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
















Daniel.C
Le #5183351
Bonsoir.
Tu as bien raison. De toutes façons, il n'a que l'embarras du choix.
Daniel
"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"
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" 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" 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" 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




















Publicité
Poster une réponse
Anonyme