Base de donnée

[djkrom2003]

Bonjour à toutes et à tous.

Je cherche à interagir sur une base de données se situant sur une autre feuille en VBA, je m'explique

Je souhaite que lorsque je renseigne le nom de mon client dans la feuille "calcul" Il aille vérifier apres la saise dans la feuille "base client" si le client existe déja.

si c'est le cas :

vérifier que le département est bien renseigner

S'il n'existe :

pas copier le nom du client dans la base en dernière position et ouvrir une msgbox pour renseigner le num de departement correspondant.

J'ai joint le fichier pour plus de clarté et je reste connecté.

 

[djkrom2003]

Re : Base de donnée

ça ne passionne donc personne?

 

[djkrom2003]

Re : Base de donnée

svp.... svp svp

 

[djkrom2003]

Re : Base de donnée

J'ai commencer à avancer sur la macro mais suit bloqué avec la variable valeur svp....

Sub test()

Dim Valeur, i, Hauteur

 Valeur = ActiveCell
 
 
 
 Hauteur = Range("c2").CurrentRegion.Rows.Count
 
 ActiveCell.Copy
 
 For i = 1 To Hauteur
If Cells(i + 1, 3) <> Valeur Then
MsgBox "Client manquant"

Range("c65536").End(xlUp)(2).Select
Valeur.Paste


Application.CutCopyMode = False
 
End If

Next






End Sub

 

[djkrom2003]

Re : Base de donnée

C'est toujours cette valeur qui bloque :

Range("c65536").End(xlUp)(2).Select
Valeur.Paste


Please....

 

[ROGER2327]

Re : Base de donnée

Bonjour djkrom2003

Un essai (pas trop fignolé) dans le classeur joint...​

ROGER2327
#5773

Samedi 21 Clinamen 139 (Moreau, insulaire - fête Suprême Quarte)
23 Germinal An CCXX, 7,0523h - marronnier
2012-W15-4T16:55:32Z

 

[djkrom2003]

Re : Base de donnée

Merci mais depuis j'ai trouver... voici le la prog que j'ai fait

Sub client()

Dim client, Departement, i, Hauteur
Dim estPresent As Boolean

Application.ScreenUpdating = False

With Sheets("base client")
    client = ActiveCell
    
    ' Hauteur correspond au nombre d'éléments sur la page "base client"
    Hauteur = .Range("c2").CurrentRegion.Rows.Count
    
    i = 1
    estPresent = False
    ' On recherche tant qu'on n'a pas trouvé et tant qu'on n'est pas à la fin
    While Not estPresent And i <= Hauteur
        If .Cells(i + 1, 3) = client Then
            ' On a trouvé
            estPresent = True
        End If
        
        ' On passe à la ligne suivante
        i = i + 1
    Wend
    
    If Not estPresent Then
        ' On est dans le cas où la recherche a été infructueuse, et on demande d'ajouter le client
        Departement = InputBox("Client manquant, entrez un département")
                
        .Range("c" & Hauteur + 1).Value = client
        .Range("i" & Hauteur + 1).Value = Departement
    
    
        ' nettoyage_base_client Macro
Sheets("base client").Select
    Columns("I:I").Select
    Selection.AutoFilter
    Range("$I$1:$I$4700").AutoFilter Field:=1, Criteria1:="="
    Range("C2:I4700").Select
    Range("I7").Activate
    Selection.Delete Shift:=xlUp
    Columns("I:I").Select
    Selection.AutoFilter
    Columns("c:c").Select
    Application.CutCopyMode = False
   Sheets("test calcul auto").Select
    End If

End With

End Sub

 

[ROGER2327]

Re : Base de donnée

Re...

Merci mais depuis j'ai trouver...
(...)

Parfait ! Une autre fois, évitez de me faire perdre mon temps.​

ROGER2327
#5792

Mardi 24 Clinamen 139 (Saint Tupetu de Tupetu, organisateur de loteries - fête Suprême Quarte)
26 Germinal An CCXX, 8,8665h - lilas
2012-W15-7T21:16:47Z

 

[djkrom2003]

Re : Base de donnée

Re...

Parfait ! Une autre fois, évitez de me faire perdre mon temps.​

ROGER2327
#5792

Mardi 24 Clinamen 139 (Saint Tupetu de Tupetu, organisateur de loteries - fête Suprême Quarte)
26 Germinal An CCXX, 8,8665h - lilas
2012-W15-7T21:16:47Z

Désolé ROger2327 et merci quand même...