Probleme si cellule contient du texte alors

[olivowitch]

Bonjour,

J'ai un souci concernant une macro par rapport à la recherche de cellule avec du texte.
Je souhaite que si une cellule en colonne A contient du texte, un calcul se réalise.

J'ai utilisé différente méthode tel que If not IsNumeric() mais le calcule se fait même si la cellule contient des nombres.

Je ne vois pas ce qui ne fonctionne pas.

Merci de votre aide.

(voir en pièce jointe.)

Olivowitch

 

[Papou-net]

Re : Probleme si cellule contient du texte alors

Bonjour olivowitch,

L'erreur vient du référencement de la cellule.

Modifie ton code comme suit:

Sub calcul()
Dim y, i As Integer
    For i = 1 To 1000
        If Not IsNumeric(Range("A" & i)) Then
            Range("A" & i).Offset(2, 0) = Range("A" & i).Offset(1, 0) / 2
        End If
    Next
End Sub

Cordialement.

 

[olivowitch]

Re : Probleme si cellule contient du texte alors

Génial merci Papou-net.
c'est parfait.
Bonne journée.

Olivowitch