Probleme si cellule contient du texte alors

olivowitch · 6 Juillet 2011

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 · 6 Juillet 2011

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:

Code:

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 · 6 Juillet 2011

Re : Probleme si cellule contient du texte alors

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

Olivowitch

Probleme si cellule contient du texte alors

olivowitch

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

olivowitch

Guest

Discussions similaires

Probleme si cellule contient du texte alors

olivowitch

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

olivowitch

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency