Sujet Précédent Sujet Suivant

Validation de 2 champs excel

Résolu/Fermé
ghislaine2011 Messages postés 41 Date d'inscription jeudi 30 juin 2011 Statut Membre Dernière intervention 27 septembre 2011 - Modifié par ghislaine2011 le 4/07/2011 à 17:08
ghislaine2011 Messages postés 41 Date d'inscription jeudi 30 juin 2011 Statut Membre Dernière intervention 27 septembre 2011 - 7 juil. 2011 à 21:20
Bonjour,


j'aimerais dans ma table enrégistrement excel verifier si mon bateau a deja débarqué a cette date lors de l'entrée de donnée


verifier par exemple b6(date) et b8(bateau) si champ existe dans la table enregistrement par la suite je continue l'entre de mes donnees.

Voici un exemple de mon fichier: https://www.cjoint.com/?AGergxfNjwO


merci de votre aide
A voir également:

4 réponses

Réponse 1 / 4
Raymond PENTIER Messages postés 58764 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 19 décembre 2024 17 256
5 juil. 2011 à 03:34
Bonjour.
Désolé, mais je n'ai pas compris "si champ existe dans la table enregistrement par la suite je continue l'entre de mes donnees" !
Où se situe la table d'enregistrement ?
De quel champ s'agit-il ?
0
Réponse 2 / 4
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
Modifié par Mytå le 5/07/2011 à 03:55
Salut le forum

Le code de la macro adapté à ta demande. 

Sub enrenr() 
' 
' enrenr Macro 
' 
With Sheets("BD enr").Range("E:E") 
    Set c = .Find(Range("B8"), LookIn:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
            If c.Offset(0, -4) = Range("B6") Then 
            MsgBox "Bateau déjà saisie" 
            Exit Sub 
            End If 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With 

MsgBox "Nouvelle saisie" 

With Sheets("BD enr") 
    .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Range("A2:I2").Copy 
    .Range("A2").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
        SkipBlanks:=False, Transpose:=False 
    .Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False 
End With 

Application.CutCopyMode = False 

End Sub

Mytå

P.S. Un coin de pays que je connais bien :)

Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
0
Réponse 3 / 4
ghislaine2011 Messages postés 41 Date d'inscription jeudi 30 juin 2011 Statut Membre Dernière intervention 27 septembre 2011
6 juil. 2011 à 14:41
merci beaucoup de votre aide sa fonctionne
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
7 juil. 2011 à 03:54
Re le forum

Ghislaine, dans ton autre ficelle, j'ai remarquer que tu avais mal recopié mon code.

Ton enregistrement ce fait en double.

Cette section est inutile à la suite de mon code 

    Sheets("BD enr").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2").Select
    Sheets("Ajout d'enrégistrement").Select
    Range("A2:i2").Select
    Selection.Copy
    Sheets("BD enr").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Ajout d'enrégistrement").Select
    
   Range("B6").Select


Mytå
0
Réponse 4 / 4
ghislaine2011 Messages postés 41 Date d'inscription jeudi 30 juin 2011 Statut Membre Dernière intervention 27 septembre 2011
7 juil. 2011 à 21:20
merci je corrige, en passant est-ce que l'on peux faire un rapport personnalise avec ma Bd enr.

comme cet exemple:

https://www.cjoint.com/?AGhvtuWRYkq

P.s. Merci de ton aide
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
djakool4 -

158 réponses