Probleme macro changement de cellule active
Fermé
kentin59
-
17 sept. 2008 à 10:18
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 - 17 sept. 2008 à 11:17
eriiic Messages postés 24512 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 24 mars 2023 - 17 sept. 2008 à 11:17
A voir également:
- Probleme macro changement de cellule active
- Macro logiciel - Télécharger - Organisation
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Macro recorder - Télécharger - Confidentialité
- Piratage facebook changer mot de passe - Guide
- Verrouiller cellule excel - Guide
2 réponses
eriiic
Messages postés
24512
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 mars 2023
7 168
17 sept. 2008 à 11:17
17 sept. 2008 à 11:17
Bonjour,
tu peux utiliser .offset(ligne,colonnes) qui te fait un décalage.
ex:
activecell.offset(7,2).value = stk
ou
activecell.offset(7,2).formula = ... (ta formule est un peu incompréhensible, dis précisément ce que tu veux y mettre, j'ai plus l'impression que c'est une valeur calculée et non une formule)
ou si tu veux la sélectionner :
activecell.offset(7,2).select
eric
tu peux utiliser .offset(ligne,colonnes) qui te fait un décalage.
ex:
activecell.offset(7,2).value = stk
ou
activecell.offset(7,2).formula = ... (ta formule est un peu incompréhensible, dis précisément ce que tu veux y mettre, j'ai plus l'impression que c'est une valeur calculée et non une formule)
ou si tu veux la sélectionner :
activecell.offset(7,2).select
eric
Dim STK As Integer
Dim cellstock As CellFormat
If ActiveCell.Value = 2 Then
STK = 1600
End If
If ActiveCell.Value = 3 Then
STK = 2400
End If
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
ActiveCell.FormulaR1C1 = 0
LigneAct = ActiveCell.Row + 7
ColAct = ActiveCell.Column + 2
ActiveSheet.Cell(LigneAct, ColAct).FormulaR1C1 = "=R[-2]C-'ventas simu'!R[-3]C[-1]+ 1600"
ActiveSheet.Cell(LigneAct, ColAct).Interior.ColorIndex = 39
Dim cellstock As CellFormat
If ActiveCell.Value = 2 Then
STK = 1600
End If
If ActiveCell.Value = 3 Then
STK = 2400
End If
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
ActiveCell.FormulaR1C1 = 0
LigneAct = ActiveCell.Row + 7
ColAct = ActiveCell.Column + 2
ActiveSheet.Cell(LigneAct, ColAct).FormulaR1C1 = "=R[-2]C-'ventas simu'!R[-3]C[-1]+ 1600"
ActiveSheet.Cell(LigneAct, ColAct).Interior.ColorIndex = 39