Problème boucle

[patsyl60]

Bonjour à tous,

Débutant sur excel vba, J'ai besoin de faire une boucle et j'ai beaucoup de mal...
Voico ma macro initiale :
Sub MAJ()
[AH5] = SomCool([B5:AF5], "47")
[AI5] = SomCool([B5:AF5], "50")
[AJ5] = SomCool([B5:AF5], "48")
[AK5] = SomCool([B5:AF5], "9")
[AL5] = SomCool([B5:AF5], "13")
[AM5] = SomCool([B5:AF5], "37")
[AN5] = SomCool([B5:AF5], "45")
End Sub

Je souhaiterai faire une boucle pour que cette ligne 5 se recopie sur les lignes 6 à 100. Je vous avoue que j'ai beaucoup de mal avec les boucles.
Merci de votre aide.

Bonne journée.

Patsyl60 😕

 

[job75]

Re : Problème boucle

Bonjour patsyl60,

Je ne sais pas ce qu'est Somcool, mais c'est votre affaire...

Plutôt qu'une boucle, pourquoi ne pas écrire directement :

Sub MAJ()
[AH5:AH100] = SomCool([B5:AF5], "47")
[AI5:AI100] = SomCool([B5:AF5], "50")
[AJ5:AJ:100] = SomCool([B5:AF5], "48")
[AK5:AK100] = SomCool([B5:AF5], "9")
[AL5:AL100] = SomCool([B5:AF5], "13")
[AM5:AM100] = SomCool([B5:AF5], "37")
[AN5:AN100] = SomCool([B5:AF5], "45")
End Sub

Edit : excusez-moi, je comprends que la valeur SomCool doit être ajustée pour chaque ligne... je regarde ça.

A+

 

[pierrejean]

Re : Problème boucle

bonjour patstyl60

A tester:

For n = 6 To 100
  Range("AH5:AN5").Copy Destination:=ActiveSheet.Range("AH" & n)
Next n

Edit : Salut job et (tout a fait OK avec toi !)

 

[patsyl60]

Re : Problème boucle

Merci à toi une fois de plus JOB75. Mais il me faut une boucle car en ah6 je dois avoir :
[AH6] = SomCool([B6:AF6], "47").

Pour la compréhension, je te mets en pièce jointe mon tableau.

a+

patsyl60

 

[job75]

Re : Problème boucle

Re,

Voici votre boucle :

Sub MAJ()
Dim i As Byte, plage As Range
For i = 5 To 100
Set plage = Range("B" & i & ":AF" & i)
Range("AH" & i) = SomCool(plage, "47")
Range("AI" & i) = SomCool(plage, "50")
Range("AJ" & i) = SomCool(plage, "48")
Range("AK" & i) = SomCool(plage, "9")
Range("AL" & i) = SomCool(plage, "13")
Range("AM" & i) = SomCool(plage, "37")
Range("AN" & i) = SomCool(plage, "45")
Next
End Sub

Edit 1 : bonjour pierrejean

Edit 2 : Si i peut dépasser 256, écrivez Dim i % (% signifie As Integer)

A+

 

[patsyl60]

Re : Problème boucle

Merci JOB75.Cela correspond tout à fait.
Encore une fois ,sur ce forum , une question = une réponse rapide et efficace.
Bravo !!!
Merci également à pierrejean pour sa participation.

a+

Patsyl60 😉

 

[patsyl60]

Re : Problème boucle

Nouveau problème. Mon tableau contient 300 lignes et je tombe sur une erreur d'execution '6' dépassement de capacité sur la ligne :
For i = 5 To 300
Je ne sais comment contourner.

Merci de votre aide.

A+

patsyl60 😕

 

[jeanpierre]

Re : Problème boucle

Bonsoir patsyl60 job75, pierrejean,

La réponse est dans l'édit 2 de notre ami job, à 11h17.

Bonne soirée.

Jean-Pierre

 

[patsyl60]

Re : Problème boucle

Je suis nul !!!! j'avais pas vu...

Encore merci à tous.

A+

patsyl60 😕

 

[patsyl60]

Re : Problème boucle

Bonjour à tous,

Suite à cette macro, on me demande maintenant de faire une somme de 2 couleurs dans la même plage. Exemple :
Range("AN" & i) = SomCool(plage, "45") + somcool (plage,"12") mais la sommcool (plage"12") vaut 1/2. Alors là, je cale sur les 2 formules.Pouvez vous m'aider.

D'avance merci.

Patsyl60