Soustraction VBA
Bonsoir,
Dans le document en PJ et dans la feuille badges , j'ai Le Button ci dessuq liée aux macros recherche représenté par le programme ci dessous .
Sub recherche()
Dim Twb As Workbook, Ws As Worksheet, Nwb As Worksheet
Dim Trouve As Range
Dim sLio As String, MemAddress As String
Dim Ind As Integer, nLig As Long
'twb fait référence au classeur en cours
Set Twb = ThisWorkbook
' on demande le Lio"
sLio = InputBox("Entrer numéro de LIO :", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
If sLio <> "" Then 'Si la valeur est différente de "" on affiche le résultat
MsgBox "Le LIO recherché est " & sLio
End If
' on va parcourir un à un toutes les feuilles du classeur en cours, ws identifie chacune de ces feuilles
Ind = 0:
For Each Ws In Twb.Worksheets
' Si le nom de la feuille ne comence pas par "b" on passe
If Left(Ws.Name, 1) = "b" Then GoTo SuiteWs
' Initialiser la variable
MemAddress = ""
' on recherche le lio dans la feuille ws
Set Trouve = Ws.Cells.Find(sLio, LookIn:=xlValues, LookAt:=xlWhole)
If Trouve Is Nothing Then GoTo SuiteWs
' Sinon mémoriser l'adresse de la 1ère cellule trouvée
MemAddress = Trouve.Address
' Chercher la valeur
Do While Not Trouve Is Nothing
' Incrémenter le nombre de valeurs trouvées
Ind = Ind + 1
' définir la feuille selon Lio cherché
Set Nwb = Twb.Sheets("b" & sLio)
' nouvelle ligne vierge
nLig = Nwb.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
' copier les valeurs
Ws.Rows(Trouve.Row).Copy Destination:=Nwb.Range("A" & nLig)
Nwb.Range("E" & nLig).Value = Ws.Name
'Nwb.Cells(nLig, "E").Value = Ws.Name 'pour copier le nom de l'onglet d'ou provient cette ligne
Set Trouve = Ws.Cells.FindNext(Trouve)
' Si on est revenu à la première cellule
If Trouve.Address = MemAddress Then Exit Do
Loop
' on passe à la feuille suivants
SuiteWs:
Next Ws
' Vérification
If Ind = 0 Then
MsgBox "lio non trouvé"
Else
MsgBox "Inscription des données pour LIO : " & sLio & ", terminée", vbInformation, "C'EST FINI..."
End If
End Sub
Le programme dans module recherche me permet de trouver les différentes données en tapant le numéro de badge de personne, en gros si je tape par exemple 1284 j'aurais dans la feuille <<b1284>> toutes les données de martin jean.
Ce que je veux faire c'est d'ajouter dans la colonne F le durée de l'intervention de toutes les intervenants comme le montre la feuille ci-dessous.
Le programme dans module recherche me permet de trouver les différentes données en tapant le numéro de badge de personne, en gros si je tape par exemple 1284 j'aurais dans la feuille <<b1284>> toutes les données de martin jean.
Ce que je veux faire c'est d'ajouter dans la colonne F le durée de l'intervention de toutes les intervenants comme le montre la feuille ci-dessous.
1forum.xlsm (196.85 Ko)
Merci d'avance à vous tous,
Bonjour,
Merci infiniment pour ce programme.
Bon week-end,