djokalif
Messages postés9Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention 7 janvier 2011
-
4 janv. 2011 à 11:34
djokalif
Messages postés9Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention 7 janvier 2011
-
4 janv. 2011 à 12:39
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
djokalif
Messages postés9Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention 7 janvier 2011 4 janv. 2011 à 12:39
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