Menu

écriture de code erroné

Messages postés
8
Date d'inscription
jeudi 10 janvier 2019
Statut
Membre
Dernière intervention
12 février 2019
-
Bonjour,

Avec windows 7 et VBA j'ai écrit un programme dont une partie est ci-dessous.
je voudrais aller en ligne A et non en ligne B, ce qui se passe avec le code ci dessous.
L' un de vous a-t-il la solution?
Merçi


If Not IsNumeric(ActiveCell) Then
MsgBox "Vous devez taper le montant de la dépense", 48
ActiveCell.ClearContents
GoTo LigneFinProc
ElseIf IsNumeric(ActiveCell) Then
Cells(1, "b") = "TRI DEPENSES A EFFECTUER "
With ActiveCell 'montant de la dépense
.Interior.ColorIndex = 8
.NumberFormat = "# ##0.00"
.Font.ColorIndex = 7
.Font.Bold = False
.HorizontalAlignment = xlRight
'.Offset(1, -2).Activate
.Offset(1, -2).Activate
End With
End If

Configuration: Windows / Firefox 64.0
Afficher la suite