Condition relative dans une macro excel
Résolu/Fermé
A voir également:
- Condition relative dans une macro excel
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
29 avril 2010 à 17:26
29 avril 2010 à 17:26
bonjour
Sub effacer_relatif()
lig = ActiveCell.Row
Range(Cells(lig, 2), Cells(lig, 11)).ClearContents
End Sub
Sub effacer_relatif()
lig = ActiveCell.Row
Range(Cells(lig, 2), Cells(lig, 11)).ClearContents
End Sub
Bonjour Michel et merci bcp pour cette réponse, ça marche super.
Je pensais m'en sortir seule pour la suite mais j'avoue que je sèche encore.
Après avoir effacé ma ligne, je dois y remettre des 3 formules issues d'un autre onglet, une fois de plus par ligne.
Voici ce que donne ma macro pour une ligne donnée :
Range("B3:K3").Select
Selection.ClearContents
Range("H3").Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range("I3").Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range("J4").Select
End Sub
J'ai remplacé le début par la formule de Michel mais pour la suite, j'ai essayé ça mais ça ne marche pas.
lig = ActiveCell.Row
Range(Cells(lig, 2), Cells(lig, 11)).ClearContents
Range(Cells(lig, 7)).Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range(Cells(lig, 8)).Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range(Cells(lig, 9)).Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range(Cells(lig, 2)).Select
End Sub
Si quelqu'un a une idée? Après, je ne vous embète plus !!
Merci à l'avance
Patsy
Je pensais m'en sortir seule pour la suite mais j'avoue que je sèche encore.
Après avoir effacé ma ligne, je dois y remettre des 3 formules issues d'un autre onglet, une fois de plus par ligne.
Voici ce que donne ma macro pour une ligne donnée :
Range("B3:K3").Select
Selection.ClearContents
Range("H3").Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range("I3").Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range("J4").Select
End Sub
J'ai remplacé le début par la formule de Michel mais pour la suite, j'ai essayé ça mais ça ne marche pas.
lig = ActiveCell.Row
Range(Cells(lig, 2), Cells(lig, 11)).ClearContents
Range(Cells(lig, 7)).Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range(Cells(lig, 8)).Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range(Cells(lig, 9)).Select
ActiveCell.FormulaR1C1 = "=calc!RC[8]"
Range(Cells(lig, 2)).Select
End Sub
Si quelqu'un a une idée? Après, je ne vous embète plus !!
Merci à l'avance
Patsy
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
30 avril 2010 à 11:15
30 avril 2010 à 11:15
Bonjour
tu n'as besoin de "range" si tu t'occupes que d'une cellule
Range(Cells(lig, 7)) ---->Cells(lig, 7)
ta macro fonctionnera
par contre pour une zone on utilise range
range(cellule debut, cellule fin)
pour ta macro en VBA (et non à l'enregistreur)
si tu veux te lancer progressivement en VBA:
http://www.info-3000.com/
tu n'as besoin de "range" si tu t'occupes que d'une cellule
Range(Cells(lig, 7)) ---->Cells(lig, 7)
ta macro fonctionnera
par contre pour une zone on utilise range
range(cellule debut, cellule fin)
pour ta macro en VBA (et non à l'enregistreur)
Dim lig As Long lig = ActiveCell.Row Range(Cells(lig, 2), Cells(lig, 11)).ClearContents Range(Cells(lig, 7), Cells(lig, 9)).FormulaR1C1 = "=calc!Rc[8]" End Sub
si tu veux te lancer progressivement en VBA:
http://www.info-3000.com/