A voir également:
- Problèmes avec formule moyenne en vba
- Formule moyenne excel - Guide
- Formule excel - Guide
- Formule si et - Guide
- Mise en forme conditionnelle formule si - Guide
- Formule excel pour additionner plusieurs cellules - Guide
3 réponses
Bonjour,
Voilà qui, je l'espère, devrait t'aider :
Range(ActiveCell, Cells.Find(What:=ActiveCell.Offset(0, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)).Select
Set plage = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="plage", RefersTo:=Selection
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=average(plage)"
ActiveCell.Offset(1, -2).Select
Bon courage,
Voilà qui, je l'espère, devrait t'aider :
Range(ActiveCell, Cells.Find(What:=ActiveCell.Offset(0, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)).Select
Set plage = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="plage", RefersTo:=Selection
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=average(plage)"
ActiveCell.Offset(1, -2).Select
Bon courage,
Hello, c encore moi,
je fais face à un autre problème...
j'essaye d'intégrer ce meme programme dans une boucle afin d effectuer l'opération pour chaque cellule de la colonne A, ca donne ca:
Sub MoyenneEURIBOR()
Dim cellules As Range
Dim nblignes As Long
Dim cpt As Long
Dim plage As Range
Range("A6").Select
Set cellules = Range(Selection, Selection.End(xlDown))
nblignes = cellules.Count
For cpt = 1 To nblignes
Range(ActiveCell, Cells.Find(What:=ActiveCell.Offset(0, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)).Select
Selection.Offset(0, 1).Resize(, 1).Select
Set plage = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="plage", RefersTo:=Selection
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=average(plage)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, -2).Select
Next cpt
End Sub
Ca bloque au niveau du range(activecell,cells.find)... alors que ca marchait parfaitement sans boucle, qqun pour m'expliquer pkoi?
Merci
je fais face à un autre problème...
j'essaye d'intégrer ce meme programme dans une boucle afin d effectuer l'opération pour chaque cellule de la colonne A, ca donne ca:
Sub MoyenneEURIBOR()
Dim cellules As Range
Dim nblignes As Long
Dim cpt As Long
Dim plage As Range
Range("A6").Select
Set cellules = Range(Selection, Selection.End(xlDown))
nblignes = cellules.Count
For cpt = 1 To nblignes
Range(ActiveCell, Cells.Find(What:=ActiveCell.Offset(0, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)).Select
Selection.Offset(0, 1).Resize(, 1).Select
Set plage = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="plage", RefersTo:=Selection
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=average(plage)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, -2).Select
Next cpt
End Sub
Ca bloque au niveau du range(activecell,cells.find)... alors que ca marchait parfaitement sans boucle, qqun pour m'expliquer pkoi?
Merci
