Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Si l'on s'en tient à ce que fait ta macro.... ça pourrait faire :
Sub zzz() For i = 8 To 56 Step 6 For j = 2 To 47 Step 5 Cells(i, j) = "=if(" & Cells(i + 1, j + 4).Address & "=$BD$12,$BB$12,$BC$12)" Next j Next i End Sub
AV
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Si l'on s'en tient à ce que fait ta macro.... ça pourrait faire :
Sub zzz()
For i = 8 To 56 Step 6
For j = 2 To 47 Step 5
Cells(i, j) = "=if(" & Cells(i + 1, j + 4).Address &
"=$BD$12,$BB$12,$BC$12)"
Next j
Next i
End Sub
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Si l'on s'en tient à ce que fait ta macro.... ça pourrait faire :
Sub zzz() For i = 8 To 56 Step 6 For j = 2 To 47 Step 5 Cells(i, j) = "=if(" & Cells(i + 1, j + 4).Address & "=$BD$12,$BB$12,$BC$12)" Next j Next i End Sub
La première chose à faire est de supprimer tout les Select qui ralentissent le traitement.
Par ailleurs tu utilises une formule unique répétée toutes les 5 colonnes et toutes les 6 lignes de B8 à AU56.
Cest typiquement un cas où les boucles permettent de simplifier. Il faut ici 2 boucles imbriquées, lune pour les lignes, lautre pour les colonnes :
Sub VersionCourte() Dim i As Integer, j As Integer, Formule As String Formule = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)" For i = 0 To 45 Step 5 For j = 0 To 48 Step 6 Range("B8").Offset(j, i).FormulaR1C1 = Formule Next j Next i End Sub
Bonjour à tous,
Je cherche, j'explore, j'arrive à trouver mais je suis toujours débutant. Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
La première chose à faire est de supprimer tout les Select qui ralentissent
le traitement.
Par ailleurs tu utilises une formule unique répétée toutes les 5 colonnes
et toutes les 6 lignes de B8 à AU56.
Cest typiquement un cas où les boucles permettent de simplifier. Il faut
ici 2 boucles imbriquées, lune pour les lignes, lautre pour les colonnes :
Sub VersionCourte()
Dim i As Integer, j As Integer, Formule As String
Formule = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
For i = 0 To 45 Step 5
For j = 0 To 48 Step 6
Range("B8").Offset(j, i).FormulaR1C1 = Formule
Next j
Next i
End Sub
Bonjour à tous,
Je cherche, j'explore, j'arrive à trouver mais je suis toujours débutant.
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
La première chose à faire est de supprimer tout les Select qui ralentissent le traitement.
Par ailleurs tu utilises une formule unique répétée toutes les 5 colonnes et toutes les 6 lignes de B8 à AU56.
Cest typiquement un cas où les boucles permettent de simplifier. Il faut ici 2 boucles imbriquées, lune pour les lignes, lautre pour les colonnes :
Sub VersionCourte() Dim i As Integer, j As Integer, Formule As String Formule = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)" For i = 0 To 45 Step 5 For j = 0 To 48 Step 6 Range("B8").Offset(j, i).FormulaR1C1 = Formule Next j Next i End Sub
Bonjour à tous,
Je cherche, j'explore, j'arrive à trouver mais je suis toujours débutant. Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2 Mais je vais chercher, mettre en application, cela me permettra de comprendre.
Merci encore
Octave
"AV" a écrit dans le message de news:
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Si l'on s'en tient à ce que fait ta macro.... ça pourrait faire :
Sub zzz() For i = 8 To 56 Step 6 For j = 2 To 47 Step 5 Cells(i, j) = "=if(" & Cells(i + 1, j + 4).Address & "=$BD$12,$BB$12,$BC$12)" Next j Next i End Sub
AV
Bonjour AV
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas
comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2
Mais je vais chercher, mettre en application, cela me permettra de
comprendre.
Merci encore
Octave
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:uypZY9YbEHA.2816@TK2MSFTNGP11.phx.gbl...
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Si l'on s'en tient à ce que fait ta macro.... ça pourrait faire :
Sub zzz()
For i = 8 To 56 Step 6
For j = 2 To 47 Step 5
Cells(i, j) = "=if(" & Cells(i + 1, j + 4).Address &
"=$BD$12,$BB$12,$BC$12)"
Next j
Next i
End Sub
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2 Mais je vais chercher, mettre en application, cela me permettra de comprendre.
Merci encore
Octave
"AV" a écrit dans le message de news:
Aussi, j'aurais besoin d'aide pour simplifier la macro qui suit :
Si l'on s'en tient à ce que fait ta macro.... ça pourrait faire :
Sub zzz() For i = 8 To 56 Step 6 For j = 2 To 47 Step 5 Cells(i, j) = "=if(" & Cells(i + 1, j + 4).Address & "=$BD$12,$BB$12,$BC$12)" Next j Next i End Sub
AV
Octave
Bonjour Jean-François Aubert,
Merci pour votre réponse, je vais tester tout ça...
"Jean-François Aubert" <à a écrit dans le message de news:%
La première chose à faire est de supprimer tout les Select qui ralentissent
le traitement. ...
Je suis d'accord.
...
C'est typiquement un cas où les boucles permettent de simplifier. Il faut ici 2 boucles imbriquées, l'une pour les lignes, l'autre pour les colonnes :
...
J'avais bien cela en tête mais n'étant que depuis peu de temps sensibilisé au VBA, je ne maitrise pas du tout la syntaxe.
Sub VersionCourte() Dim i As Integer, j As Integer, Formule As String Formule = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)" For i = 0 To 45 Step 5 For j = 0 To 48 Step 6 Range("B8").Offset(j, i).FormulaR1C1 = Formule Next j Next i End Sub
C'est clair. Merci beaucoup pour cette réalisation et les explications qui vont avec.
Octave
Bonjour Michel Gaboly,
Merci pour votre réponse.
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:40FBC694.CAFAC736@Suppgaboly.com...
La première chose à faire est de supprimer tout les Select qui
ralentissent
le traitement.
...
Je suis d'accord.
...
C'est typiquement un cas où les boucles permettent de simplifier. Il faut
ici 2 boucles imbriquées, l'une pour les lignes, l'autre pour les colonnes
:
...
J'avais bien cela en tête mais n'étant que depuis peu de temps sensibilisé
au VBA, je ne maitrise pas du tout la syntaxe.
Sub VersionCourte()
Dim i As Integer, j As Integer, Formule As String
Formule = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)"
For i = 0 To 45 Step 5
For j = 0 To 48 Step 6
Range("B8").Offset(j, i).FormulaR1C1 = Formule
Next j
Next i
End Sub
C'est clair. Merci beaucoup pour cette réalisation et les explications qui
vont avec.
La première chose à faire est de supprimer tout les Select qui ralentissent
le traitement. ...
Je suis d'accord.
...
C'est typiquement un cas où les boucles permettent de simplifier. Il faut ici 2 boucles imbriquées, l'une pour les lignes, l'autre pour les colonnes :
...
J'avais bien cela en tête mais n'étant que depuis peu de temps sensibilisé au VBA, je ne maitrise pas du tout la syntaxe.
Sub VersionCourte() Dim i As Integer, j As Integer, Formule As String Formule = "=IF(R[1]C[4]=R12C56,R12C54,R12C55)" For i = 0 To 45 Step 5 For j = 0 To 48 Step 6 Range("B8").Offset(j, i).FormulaR1C1 = Formule Next j Next i End Sub
C'est clair. Merci beaucoup pour cette réalisation et les explications qui vont avec.
Octave
AV
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2
Il s'agit de la boucle sur les colonnes par pas de 5 j = 2 c'est la col B j = 47 c'est la col AU Idem pour les lignes ( variable "i") par pas de 6
AV
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas
comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2
Il s'agit de la boucle sur les colonnes par pas de 5
j = 2 c'est la col B
j = 47 c'est la col AU
Idem pour les lignes ( variable "i") par pas de 6
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2
Il s'agit de la boucle sur les colonnes par pas de 5 j = 2 c'est la col B j = 47 c'est la col AU Idem pour les lignes ( variable "i") par pas de 6
AV
Octave
Bonjour AV
Je suis désolé de poser des questions qui peuvent sembler simple pour quelqu'un expérimenté. Mais je souhaite vraiment comprendre. Dans notre cas, maintenant tout est clair.
Merci
Octave
"AV" a écrit dans le message de news:
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2
Il s'agit de la boucle sur les colonnes par pas de 5 j = 2 c'est la col B j = 47 c'est la col AU Idem pour les lignes ( variable "i") par pas de 6
AV
Bonjour AV
Je suis désolé de poser des questions qui peuvent sembler simple pour
quelqu'un expérimenté.
Mais je souhaite vraiment comprendre. Dans notre cas, maintenant tout est
clair.
Merci
Octave
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:upRDfLZbEHA.1408@TK2MSFTNGP12.phx.gbl...
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas
comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le
J=2
Il s'agit de la boucle sur les colonnes par pas de 5
j = 2 c'est la col B
j = 47 c'est la col AU
Idem pour les lignes ( variable "i") par pas de 6
Je suis désolé de poser des questions qui peuvent sembler simple pour quelqu'un expérimenté. Mais je souhaite vraiment comprendre. Dans notre cas, maintenant tout est clair.
Merci
Octave
"AV" a écrit dans le message de news:
Merci pour votre réponse. A la lecture, il y a une chose que je n'ai pas comprise... c'est le "For j = 2 To 47 Step 5" et plus précisément le J=2
Il s'agit de la boucle sur les colonnes par pas de 5 j = 2 c'est la col B j = 47 c'est la col AU Idem pour les lignes ( variable "i") par pas de 6
AV
AV
Pas de souci... Ta démarche est tout à fait naturelle
AV
Pas de souci...
Ta démarche est tout à fait naturelle
Pas de souci... Ta démarche est tout à fait naturelle
AV
sabatier
s'est vraiment levé d'un bon pied ce matin, l'alain...p'têt ben pour çà qu'il pleut comme (mille) vache(s) qui pisse(nt)... quant à l'octave, peut encore jouer quelques gammmes : sera toujours bien reçu ici, même que philippe R va se faire un plaisir de lui envoyer le MB... jps (pour la guerre des gaules)
"AV" a écrit dans le message de news:O$$
Pas de souci... Ta démarche est tout à fait naturelle
AV
s'est vraiment levé d'un bon pied ce matin, l'alain...p'têt ben pour çà
qu'il pleut comme (mille) vache(s) qui pisse(nt)...
quant à l'octave, peut encore jouer quelques gammmes : sera toujours bien
reçu ici, même que philippe R va se faire un plaisir de lui envoyer le MB...
jps (pour la guerre des gaules)
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:O$$yxvhbEHA.4092@TK2MSFTNGP10.phx.gbl...
Pas de souci...
Ta démarche est tout à fait naturelle
s'est vraiment levé d'un bon pied ce matin, l'alain...p'têt ben pour çà qu'il pleut comme (mille) vache(s) qui pisse(nt)... quant à l'octave, peut encore jouer quelques gammmes : sera toujours bien reçu ici, même que philippe R va se faire un plaisir de lui envoyer le MB... jps (pour la guerre des gaules)
"AV" a écrit dans le message de news:O$$
Pas de souci... Ta démarche est tout à fait naturelle
