erreur sur for each

[flo2002]

Bonjour à tous!
j'ai encore un petit soucis ce matin sur des fichiers de conso!
j'ai fais une macro qui doit definir un code mais selon deux conditions, et je crois que la est la faille:

Dim X As Range
Dim derlign As Long
derlign = Range("D65536").End(xlUp).Row
For Each X In Range(Cells(14, 4), Cells(derlign, 4))
If X.Offset(0, -2).Value Is Not Error Then
If X.Value Is Error Then
X.Value = X.Offset(0, 2).Value & X.Offset(0, -2).Value
End If
End If
Next X

merci de vos lumieres

de plus autres petit soucis.
Mon fichier après conso pese trop lourd (pres de 60mo). Mais j'ai plein de formule. Ne devrais je pas passer tout ca en valeur?
Sinon comment fait on dans une sub pour "vider" le presse papier?

Merci d'avance pour toutes reponses

 

[Luki]

Re : erreur sur for each

Bonjour Florent,

ça semble venir de tes Is Error, essaie ceci

Dim X As Range
Dim derlign As Long
derlign = Range("D65536").End(xlUp).Row
For Each X In Range(Cells(14, 4), Cells(derlign, 4)).Cells
    If Not [COLOR=Red]IsError(X.Offset(0, -2).Value)[/COLOR] Then
        If [COLOR=Red]IsError(X.Value)[/COLOR] Then
            X.Value = X.Offset(0, 2).Value & X.Offset(0, -2).Value
        End If
    End If
Next X

a+

 

[JeanMarie]

Re : erreur sur for each

Bonjour Florent

La fonction VBA Error retourne un numéro d'erreur lors d'une exécution du code VBA. Pour savoir si une cellule contient un message d'erreur, il faut utiliser IsError.

Sub Florent()
Dim X As Range
Dim derlign As Long
derlign = Range("D65536").End(xlUp).Row
For Each X In Range(Cells(14, 4), Cells(derlign, 4))
   If Not IsError(X.Offset(0, -2)) Then
      If IsError(X) Then
         X = X.Offset(0, 2) & X.Offset(0, -2)
      End If
   End If
Next X
End Sub

@+Jean-Marie

PS : Salut Luc, tu as posté avant moi

 

[flo2002]

Re : erreur sur for each

Merci je note et je teste!
mais je vous fais confiance ca doit etre ca!

pour le presse papier avez vous une idée?

 

[JeanMarie]

Re : erreur sur for each

Re...

Application.CutCopyMode

A la prochaine

@+Jean-Marie

 

[porcinet82]

Re : erreur sur for each

Salut Flo, JeanMarie, re Luki,

Pour ce qui est du presse papier, tu trouveras une excelente réponse de l'ami Thierry dans le fil suivant

@+

Edition : J'ai corriger le lien , il fonctionne maintenant

 

[flo2002]

Re : erreur sur for each

Merci avec l'enregistreur je crois qu'il donne

Application.CutCopyMode = false
donc je met true? ou rien?

merci encore!

 

[flo2002]

Re : erreur sur for each

Bonjour Porcinet, le lien ne fonctionne pas

 

[flo2002]

Re : erreur sur for each

Merci Porcinet,
je vais voir ce que je peux en faire.

 

[flo2002]

Re : erreur sur for each

j'ai mis
Dim MyData As Object
Set MyData = New DataObject

With MyData
.SetText ""
.PutInClipboard
End With
et ca a l'air d'etre bon

merci!