Incrementation d'une macro

Fermé

elodie_madrid Messages postés 1 Date d'inscription mardi 28 avril 2009 Statut Membre Dernière intervention 28 avril 2009 - 28 avril 2009 à 00:28
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 28 avril 2009 à 01:32

Bonjour,
j'utilise excel 2003

j'essaie de developper la macro suivante :

Range("D133").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
Range("D133").Select
Selection.AutoFill Destination:=Range("D133:BD133"), Type:=xlFillDefault
Range("D133:BD133").Select

Range("E134").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C[-1]:R[-2]C)"
Range("E134").Select
Selection.AutoFill Destination:=Range("E134:BD134"), Type:=xlFillDefault
Range("E134:BD134").Select

Range("F135").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C[-2]:R[-3]C)"
Range("F135").Select
Selection.AutoFill Destination:=Range("F135:BD135"), Type:=xlFillDefault
Range("F135:BD135").Select

jusqu'à la cellule BD185, je ne sais pas comment faire, j'imagine que je dois utiliser un while pour incrementer les lignes mais pour les lettres: aucune idée.

Un peu d'aide ne serait pas de refus, étant donné que je n'ai jamais fait de programmation de ma vie.

Merci d'avance à tout le monde

A voir également:

Incrementation d'une macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel copier formule sans incrémentation - Forum Excel

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 645
28 avril 2009 à 01:32

Bonjour,

Je propose la macro suivante (si j'ai bien compris le principe)

Sub REMPLIR()
Dim col As Integer, lig As Integer
For col = 4 To 56
    lig = 129 + col
    Cells(lig, col).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-" & col - 3 & "]C[-" & col - 4 & "]:R[-" & col - 3 & "]C)"
    If col < 56 Then
    Cells(lig, col).Select
        Selection.AutoFill Destination:=Range(Cells(lig, col), Cells(lig, 56)), Type:=xlFillDefault
    End If
Next col
End Sub

A+

Discussions similaires

recopier une formule sans décalage

Bonjour,
J'ai dans la cellule B15 la formule suivante :
=RECHERCHE(A15;A1:A10;B1:B10)
les plage A1:A10 et B1:B10 étant une table de données, et la cellule A15 est celle qui devra contenir une référence qui à son tour fait appel à ces données, ma question est la suivante:
Comment recopier la même formule sur les cellules B16, B17, B18 ..... sans qu'il y ait de décalage sur cette table de données.
merci de votre attention.

Configuration: Windows XP / Internet Explorer 8.0

recup couleur de cellule sans macro

Bonjour,
Savez vous si on peut, dans une cellule, avec une formule et NON avec une macro, récupérer l'information de la couleur d'une autre cellule ?
Je ne veux pas copier les attributs d'une cellule colorée mais savoir si cette cellule a été changée en rouge ou vert par ex. et selon le résultat engager d'autres actions, calculs.

Merci d'avance.

Transformer un chiffre en lettres dans excel sans macro

Bonjour,
je cherche à transformer un chiffre en lettre dans excel mais sans macro.
Quelqu'un a déjà apporter une réponse génial à base d'une succession de formule =si() mais je n'arrive pas à la retrouver sur le forum.
Please aidez moi

Recopier sans incrémenter tous les chiffres

Bonjour,

J'ai besoin de recopier une formule sur 1000 lignes et il y a des noms de cellule qui eux, ne doivent pas s’incrémenter !

Ma formule étant :
=(NB.SI(F4:DE4;"s")*Accueil!C18)+(NB.SI(F4:DE4;"b")*Accueil!C17)

J'aimerai savoir si c'est possible de recopié cette formule sur mes milles lignes sans incrémenter ce qui est en gras !

Merci !

copier des formules à l' identique .

Bonjour à vous tous ,ma question comment recopier cette formule (sur plusieurs cellule de la page de calcul ) en gardant cette même formule sur toutes les autres cellule, apparemment il faut utiliser $ mais je n’arrive pas à le placer , merci de votre assistance .

voila la formule ci dessous :

=IFERROR(VLOOKUP(D12:D113;'Price List'!A3:B301;2;0);"")

Eric

Configuration: Macintosh / Safari 11.0.2