Problème de memoire à l'exécution du code

Résolu
Signaler
Messages postés
9
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
7 janvier 2011
-
Messages postés
9
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
7 janvier 2011
-
Bonjour,

je souhaite automatisé l'affichage du prénom dans une cellule B2 en fonction du nom sélection dans la cellule A2. Mon code ci-dessous me signal toujours "mémoire insuffisant"
J'ai besoin d'aide s'il plait!!!!!
Merci d'avance.

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

2 réponses

Messages postés
72
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
31 mai 2013
15
il vous faut une préçision tu travail sur koi???
VB6,VBA Access ou VBA Excel???????

Un orateur trop long est comme une horloge qui sonne les minutes!
Messages postés
9
Date d'inscription
samedi 29 septembre 2007
Statut
Membre
Dernière intervention
7 janvier 2011

Bonjour,

Je m'excuse de ne pas être plus précis.
Je travail en VBA Excel, je suis entretien de créer un planning des personnels.
Je profite pour poser une autre question, mon copier-coller ne me copie pas la bonne plage(sa marche 1/3) voici le code aussi:
Private Sub CommandButton1_Click()
'Désactive le rafraichissement écran
Application.ScreenUpdating = False

'Boucle..................
For i = 1 To Worksheets.Count

If Feuil8.Range("A2").Value + Feuil8.Range("B2").Value = Worksheets(i).Name Then
'Copier
Worksheets(i).Select
Selection.Range("A5:AN113").Copy

'Coller
Worksheets("ResultatRecherche").Select
Worksheets("ResultatRecherche").Range("A5:AN113").Select
ActiveSheet.Paste

Exit For
Exit Sub
End If
Next i ' Suite de la bouclue....
'réactive le rafraichissement écran
Application.ScreenUpdating = True
End Sub