J'ai un probl=E8me dans ma macro, je veux aditionner deux=20
cellules qui contiennent des minutes (de type "00:00")qui=20
appartiennent =E0 des feuilles diff=E9rentes.
Voici mon code : =20
Sub Macro1()
=20
y =3D 8
For x =3D 9 To 35
If Not IsEmpty(Sheets("Planning").Cells(x, 2)) Then=20
Sheets("Planning").Range(Cells(x, 1)).Value =3D=20
Sheets("Planning").Cells(y, 1).Address.Value +
Sheets("CAT1").Cells(4, 4).Address.Value: y =3D y + 1
Next x
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
Rai
a écrit dans le message de news:14feb01c41cad$5 d70ccd0$ Bonjour,
J'ai un problème dans ma macro, je veux aditionner deux cellules qui contiennent des minutes (de type "00:00")qui appartiennent à des feuilles différentes. Voici mon code :
Sub Macro1()
y = 8 For x = 9 To 35 If Not IsEmpty(Sheets("Planning").Cells(x, 2)) Then Sheets("Planning").Range(Cells(x, 1)).Value = Sheets("Planning").Cells(y, 1).Address.Value + Sheets("CAT1").Cells(4, 4).Address.Value: y = y + 1 Next x End Sub
Merci d'avance.
Boby.
Bonjour,
Je n'ai pas tout à fait saisi plusieurs points dans ton code : - pourquoi tu écris Range(Cells(x,1).value ?? A moins d'une particularité du VBA qui m'échappe, Cells(x,1).value suffisait - que cherches-tu à faire avec cells(y,1).address.value ??
En tous cas, je te livre une solution possible qui fonctionne. Reste à voir si elle effectue le travail que tu voulais ... (tu peux simplifier la macro en enlevant .value partout, c'est un propriété implicite)
Sub Macro1() With Sheets("Planning") y = 8 For x = 9 To 35 If Not IsEmpty(.Cells(x, 2)) Then .Cells(x, 1).Value = .Cells(y, 1).Value + Sheets("CAT1").Cells(4, 4).Value y = y + 1 End If Next x End With End Sub
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
<anonymous@discussions.microsoft.com> a écrit dans le message de news:14feb01c41cad$5
d70ccd0$a001280a@phx.gbl...
Bonjour,
J'ai un problème dans ma macro, je veux aditionner deux
cellules qui contiennent des minutes (de type "00:00")qui
appartiennent à des feuilles différentes.
Voici mon code :
Sub Macro1()
y = 8
For x = 9 To 35
If Not IsEmpty(Sheets("Planning").Cells(x, 2)) Then
Sheets("Planning").Range(Cells(x, 1)).Value =
Sheets("Planning").Cells(y, 1).Address.Value +
Sheets("CAT1").Cells(4, 4).Address.Value: y = y + 1
Next x
End Sub
Merci d'avance.
Boby.
Bonjour,
Je n'ai pas tout à fait saisi plusieurs points dans ton code :
- pourquoi tu écris Range(Cells(x,1).value ?? A moins d'une particularité du VBA qui m'échappe, Cells(x,1).value suffisait
- que cherches-tu à faire avec cells(y,1).address.value ??
En tous cas, je te livre une solution possible qui fonctionne.
Reste à voir si elle effectue le travail que tu voulais ...
(tu peux simplifier la macro en enlevant .value partout, c'est un propriété implicite)
Sub Macro1()
With Sheets("Planning")
y = 8
For x = 9 To 35
If Not IsEmpty(.Cells(x, 2)) Then
.Cells(x, 1).Value = .Cells(y, 1).Value + Sheets("CAT1").Cells(4, 4).Value
y = y + 1
End If
Next x
End With
End Sub
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
a écrit dans le message de news:14feb01c41cad$5 d70ccd0$ Bonjour,
J'ai un problème dans ma macro, je veux aditionner deux cellules qui contiennent des minutes (de type "00:00")qui appartiennent à des feuilles différentes. Voici mon code :
Sub Macro1()
y = 8 For x = 9 To 35 If Not IsEmpty(Sheets("Planning").Cells(x, 2)) Then Sheets("Planning").Range(Cells(x, 1)).Value = Sheets("Planning").Cells(y, 1).Address.Value + Sheets("CAT1").Cells(4, 4).Address.Value: y = y + 1 Next x End Sub
Merci d'avance.
Boby.
Bonjour,
Je n'ai pas tout à fait saisi plusieurs points dans ton code : - pourquoi tu écris Range(Cells(x,1).value ?? A moins d'une particularité du VBA qui m'échappe, Cells(x,1).value suffisait - que cherches-tu à faire avec cells(y,1).address.value ??
En tous cas, je te livre une solution possible qui fonctionne. Reste à voir si elle effectue le travail que tu voulais ... (tu peux simplifier la macro en enlevant .value partout, c'est un propriété implicite)
Sub Macro1() With Sheets("Planning") y = 8 For x = 9 To 35 If Not IsEmpty(.Cells(x, 2)) Then .Cells(x, 1).Value = .Cells(y, 1).Value + Sheets("CAT1").Cells(4, 4).Value y = y + 1 End If Next x End With End Sub
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
