Discussion :

[mohaciss]

Bonjour,
Comme indique dans le titre je ne sais plus comment me débarrassé de cette erreur. je travail en VBA Excel
Toutes aides est la bien venue:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
'Application.ScreenUpdating = False
Dim I As Integer
 
For I = 2 To 100
If Range(Feuil8.Cells(2, 1)) = Range(Feuil2.Cells(I, 4)) Then
    Range(Feuil8.Cells(2, 2)) = Range(Feuil2.Cells(I, 5))
Exit For
End If
Next I
'Application.ScreenUpdating = True
 
End Sub

J'ai essayé cette version aussi mais sa ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim I As Integer
 
For I = 2 To 100
If Feuil8.Range("A2") = Feuil2.Range("D" & I) Then
    Feuil8.Range("B2") = Feuil2.Range("E" & I)
Exit For
End If
Next I
Application.ScreenUpdating = True
 
End Sub

[jfontaine]

Bonjour

Et l'erreur c'est quoi ????? c'est ou ?????

Dans un premier temps je te dirais d'ajouter Value pour etre sur qu'excel compar bien les valeurs et non pas l'objet range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil8.Range("A2") .Value

[tedo01]

Bonjour,
Dans quelle feuille se trouve la procédure ?
Si je la met dans une autre feuille que Feuil8 elle fonctionne bien.
Par contre, Si je la met dans la feuille Feuil8, la procédure Worksheet_Change s'appelle elle-même avec la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Feuil8.Cells(2, 2)) = Range(Feuil2.Cells(I, 5))

et ça part en boucle...

[casefayere]

Bonsoir,

déjà pour la rédaction, j'adapterais le code, ensuite je ne pense pas que l'évènement "change" soit le bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim I As Integer
 
For I = 2 To 100
   With Sheets("feuil8")
      If .Cells(2, 1) = Sheets("feuil2").Cells(I, 4) Then
         .Cells(2, 2) = Sheets("feuil2").Cells(I, 5)
         Exit For
      End If
   End With
Next I

[mohaciss]

Bonjour,

Mon problème est résolut, si ça intéresse d'autre débutant comme moi voici le code:
Merci à vous tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Application.ScreenUpdating = False
 
'Boucle..................
For i = 1 To Worksheets.Count
 
If Application.Worksheets("ResultatRecherche").Range("A2").Value + Application.Worksheets("ResultatRecherche").Range("B2").Value = Application.Worksheets(i).Name Then
 
'Copier
Application.Worksheets("ResultatRecherche").Range("A5:AN113").Copy
 
'Coller
Application.Worksheets(i).Select
Range("A5:AN113").PasteSpecial
Exit For
Exit Sub
End If
Next i ' Suite de la bouclue....
 
'réactive le rafraichissement écran
Application.Worksheets("ResultatRecherche").Activate
Application.ScreenUpdating = True