Hello tout le monde,
J'ai besoin de votre aide pour du VBA
Mon problème est assez simple, mais je trouve pas de cas ressemblant au mien sur internet
Mon problème :
- Je voudrais appliquer des formules qui dépendent de cas bien précis, chaque cas à sa formule (pour ceci, j'utilise select case combiné à for each...next) donc jusque la OK
- Ensuite, je voudrais que les formules que j'associe à chaque cas soit incrémenter dans une autre cellule dans un autre onglet du même workbook et c'est ici que je bloque.
Voici le code
Sub select_case()
Dim rng As Range
Dim r As Range
Dim lastrow As Long
lastrow = ThisWorkbook.ActiveSheet.Range("B3:B" & Rows.Count).End(xlDown).Row
Set rng = ThisWorkbook.Sheets("1).Range("C3:X" & lastrow)
Set rng2 = ThisWorkbook.Sheets("2").Range("C3:X" & lastrow)
For Each r In rng.Cells
Select Case r.Value
Case "Numero 1"
rng2.Formula = 1 --> Ici, je voudrais appliquer ma formule dans la plage rng2
Case
End Select
Next
End Sub
Bon je ne sais pas si je suis super clair, je vous ait joins un fichier pour vous aider à comprendre
Merci d'avance pour votre temps