Titre du sujet : Re: Problème sur condition
par JCGL le 27/04/2013 19:56:32
Bonjour à tous,
Ton fichier ne comporte pas d'USF.
Un essai avec ce que j'ai compris de la demande :
Dans le module de l'USF
Option Explicit
Private Sub CommandButton1_Click()
Dim DerL&
DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row + 1
Feuil1.Cells(DerL, 1) = TextBox1
Feuil1.Cells(DerL, 2) = TextBox2
Feuil1.Cells(DerL, 3) = TextBox3
Feuil4.Cells(3, 2) = TextBox1
Feuil4.Cells(6, 2) = TextBox2
Feuil4.Cells(9, 2) = TextBox3
UserForm1.Hide
End Sub
Dans un module (ton code très légèrement modifié)
Sub trouve()
Dim DerL As Long, compteur As Long, C As String, ok As Long
C = Sheets("Recherche").Range("C7").Value
DerL = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row
'compteur pour vérifier chaque cellule de la colonne
Sheets("BD").Select
For compteur = 2 To DerL
If Range("A" & compteur).Value = C Then
Range("A" & compteur, "C" & compteur).Copy
Sheets("resultat").Select
Range("A1").Select
ActiveSheet.Paste
End If
Next compteur
'mise à jour remplissage
With Sheets("remplissage")
.Cells(3, 2).Value = Sheets("resultat").Range("A1").Value
.Cells(6, 2).Value = Sheets("resultat").Range("B1").Value
.Cells(9, 2).Value = Sheets("resultat").Range("C1").Value
End With
Sheets("resultat").Range("A1:C1").ClearContents
If Feuil4.Range("B3") = "" Then
ok = MsgBox(" Recherche infructueuse", vbYesNo, "Voulez-vous créer un nouveau contact?")
If ok = 6 Then
UserForm1.Show
End If
End If
Sheets("Remplissage").Select
End Sub
A+ à tous
|
Didier FOURGEOT