Erreur 1004

Bonjour,

Je viens vers vous aujourd'hui car en essayant de réaliser une macro pour une application qui extrait des informations (en fonction de deux critères) d'une feuille 1 pour les compiler dans une feuille 2 je me retrouve avec l'erreur 1004.

Je suis novice en VBA et je n'arrive pas du tout a trouver mon erreur. Il semble que l'erreur vient de la fonction "If"

Merci d'avance pour votre aide !!

Code :

Sub Test1()

Dim i As Integer, temp As String

i = 0

Do While i < 30

Sheets("Feuil1").Activate

temp = Cells(i, 1).Value

If ((Cells(i, 2).Value = 1) And (Cells(i, 3).Value = 1)) Then

Sheets("Feuil2").Activate

Cells(5, 5) = Cells(5, 5) & "/" & temps

Else

End If

i = i + 1

Loop

End Sub

Bonjour,

n'hésitez pas à mettre votre code entre les balises "code" du site représentés par l'icône </> au dessus de la fenêtre d'édition des messages. Merci

Correction de votre code afin de supprimer les "Activate" qui ne sont pas utiles si l'on prend soin de définir le nom de la feuille sur laquelle on veut travailler. Indentation du code pour une meilleur lecture. Correction de l'orthographe des variables ! temps est différente de temp ! D'où l'erreur je pense :

Sub Test1()
    Dim i As Integer, temp As String
    i = 0
    Do While i < 30
        Sheets("Feuil1").Activate
        temp = Sheets("Feuil1").Cells(i, 1).Value
        If Sheets("Feuil1").Cells(i, 2).Value = 1 And Sheets("Feuil1").Cells(i, 3).Value = 1 Then
            Sheets("Feuil2").Cells(5, 5).Value = Sheets("Feuil2").Cells(5, 5) & "/" & temp
        End If
        i = i + 1
    Loop
End Sub

@ bientôt

LouReeD

Bonjour,

Bonjour LouReed,

Une autre proposition :

Sub Test1()
Dim i As Integer, temp As String
    i = 1
    Do While i < 30
        With Sheets("Feuil1")
            temp = .Cells(i, 1).Value
            If .Cells(i, 2).Value = 1 And .Cells(i, 3).Value = 1 Then
                Sheets("Feuil2").Cells(5, 5) = Sheets("Feuil2").Cells(5, 5) & "/" & temp
            End If
            i = i + 1
        End With
    Loop
End Sub

Je dis : en enlevant les "Activate" et je le laisse !

On ne se relit jamais assez ! (pas vrai Pedro22 ? )

Et en plus avec le "With" c'est encore plus propre !!!

Jean-Eric, n'avez vous pas pensé à changer d'avatar pour celui d'un homme chauve habillé de blanc ?

@ bientôt

LouReeD

Merci !!

ça fonctionne parfaitement.

A bientôt

Re,

Et à quoi est censé ressembler le chauve habillé de blanc ?

Sinon i=0 et Cells(i,1) ne font pas bon ménage.

Cdlt.

Oui aussi, mais celle là c'était pour voir si vous aviez vu ! Je plaisante

Ha... les copier/coller....

@ bientôt

LouReed