Code VBA pour rechercher avec excel Résolu/Fermé

Question

Bonjour,
 Je souhaite avoir un code pour :
- Dans ma colonneB, j'ai des numéros pouvant aller jusqu'à 5000 et un même numéro peut apparaître plusieurs fois (maximum 19 fois et il y a déjà une formule écrite pour cela) mais il doit y avoir une continuité dans leur arrivée,, c'est-à-dire : quand je saisi "1" je peux continuer à mettre d'autres "1" et après le "1" c'est forcément le "2" que je peux suivre donc, impossible de sauter "2" pour saisi le "3". Ainsi à la suite du "3" par exemple je ne peux saisir que le "4" ou répéter soit le "1", le"2" et "3" ;
- Dans les colonnes de F à L, j'ai des informations associées au numéro correspondant de la cellule en colonne B (en F, prénom - en G, nom - en H, Date - en I, Lieu nais - en J, Sexe - en K, adresse et en L , Tel)
- Maintenant, je voudrais avoir un code en colonne B pour que si je saisi un numéro, excel vérifie et exécute l'action appropriée :
a/ si le numéro vient pour la première fois, excel l'accepte et je poursuis la saisie des données dans les colonnes F à L,
b/ si le numéro existe déjà, excel accepte puis recherche dans ma plage "F:L" puis positionne dans les colonnes et cellules correspondantes les données associées au numéro , ce sont des données qui existent parce que le numéro a déjà été utilisé.
NB: Les lignes de ma plage vont de 9 à 5008
Merci beaucoup d'avance à tous.

gbinforme · Answer

Bonjour sekouausud, 
Cette macro à mettre dans ta feuille concernée devrait le faire :
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Not Intersect(sel, [B:B]) Is Nothing Then
   Dim cel As Range, svt As Variant
   Set cel = Range("B2:B" & sel.Row - 1).Find(sel, , , xlWhole)
   If Not cel Is Nothing Then
        Cells(cel.Row, "F").Resize(1, 7).Copy Destination:=Cells(sel.Row, "F")
   Else
        svt = Application.WorksheetFunction.Max(Range("B2:B" & sel.Row - 1)) + 1
        If svt <> sel.Value Then
            sel.Value = svt: MsgBox "Vous avez oublié " & svt
        End If
   End If
End If
End Sub

sekouausud · Answer

Bonjour, 
Le code marche bien, j'ai même augmenté les colonnes mais :
        - ( sel.Value = svt: MsgBox "Vous avez oublié " & svt) que veut dire ce message ?
        - Aussi,je ne sais pas si c'est impératif d'ouvrir une nouvelle discussion pour gérer mon nouveau problème : dans la feuille4 actuelle j'ai 2 colonnes AF ; AG, et dans une autre feuille2, 2 cellules fixes  C4 (valeur=500) et C5(valeur=600). Maintenant, je voudrais que si dans la cellule en  AF9 la valeur est égale à celle de C4, alors, en AG9 j'obtiens "-" en lieu et place de "600" et inversement. 
En fait, AF9 et AG9 ne doivent pas contenir en même temps des chiffres car si l'une AF9 ="500", "AG" doit forcément être égale à "-" et inversément. Moi j'hésite à créer dans la feuille2 une autre cellule C6 = "-" pour l'utiliser dans une formule de test logique. Qu'en pensez-vous ?
Merci beaucoup

Code VBA pour rechercher avec excel

2 réponses

Discussions similaires