Microsoft 365 Copier les valeurs d'une cellule après une RECHERCHEV si vide

Bonjour @r3vzone

Mettre un fichier c'est bien mais c'est mieux sans protection !!!


@Phil69970

Ha merde j'avais complétement zappé, super désolé le MDP : 1234

Re

Que comprendre dans cette phrase :

r3vzone à dit:

Les valeurs calculées dans Calculateur sont affichées dans RESULTAT (K12)

Cliquez pour agrandir...

RESULTAT est un onglet ?

Si oui ou est il ?
Si non explique la phrase ?

@Phil69970

Désolé si je me suis mal exprimé.

C'était juste une info sur le calculateur. Quand on fait un calcul en ajoutant des heures(ds le tableau en haut à gauche) le résultat total avec les codes correspondant s'affiche dans la cellule nommée RÉSULTAT (cellule K11 sur le calculateur) (et s'affiche également ds J32 (ligne et cellule masquée).

Re

Peut on inscrire directement la réponse dans la feuille HS-Janvier-23 colonne S (Observation )
Dit autrement si tous les calculs se font en mémoire on pourrait peut être se passer de la feuille Calculateur ?
C'est un début de réflexion de ma part car je pense pouvoir me passer de cette feuille (calculateur)

@Phil69970

Disons que le calculateur permet de vérifier.
Oui en soit je suppose qu'on pourrait s'en passer, mais je t'avoue que dans l'immédiat je préférerais le garder (je débute comme expliqué au début de mon post et j'aimerais comprendre correctement toutes les étapes), là je l'ai lié avec des utilisateurs dans HS-JANVIER-23 pour mon utilisation mais d'autres personne pourraient être amenées a l'utiliser indépendamment de la feuille HS-Janvier-23 juste pr effectuer le calcul et avoir directement les codes sans la recherche.

Je suis tout de même très intéressé par le comment faire de ton idée

Quoiqu'il en soit merci pr le temps que tu prends.

Re

Je résume dans la feuille HS-Janvier-23 :
On teste Colonne S de l'agent sélectionné si la cellule est vide ou pas.
Si remplit on ne fait rien
Si vide alors on calcule
Question j'ai pas trop compris comment ceci se calcule ?



@Phil69970

Je peux te faire une explication du calcul mais à vrai dire il est indépendant de ma problématique (sauf si tu veux te lancer dans ton idée et faire le calcul sans le calculateur ) qui est de pouvoir copier ou écrire (les valeurs dans la cellule K11 ou J32 résultant du calcul partie de ton screenshot au-dessus) dans la correspondance de la cellule de l'agent sélectionné via la liste, cad dans la feuille HS-Janvier-23 colonne S (OBSERVATIONS).

Jte donne quand même les détails du dit calcul comme ça il y aura plus de clarté pour toi pour l'ensemble du moins j'espère .



Voilà le calcul se fait ainsi, le résultat est mis (avec les codes-tranches) dans K11 ou J32 (masqué).
Et j'aimerais bien trouver un moyen de pouvoir copier ou écrire les valeurs dans la cellule K11 dans la correspondance de la cellule de l'agent sélectionné dans la feuille HS-Janvier-23 colonne S (OBSERVATIONS).

Merci dans tout les cas!

Re

Donc tu rentres les valeurs à la main ?
Sinon les valeurs sont dans quelles feuilles ?

@Phil69970

Oui + le calcul aussi du coup (assez chronophage mais ça fait les pattes ) du coup jme suis lancé dans un 1er temps sur ce calculateur et ensuite jvais intégrer un récupérateur ocr - J'aurais juste a vérifier les fichiers dit non lisibles et le résultat final.
Je test et reviens pour te dire.

Sinon les valeurs sont dans quelles feuilles ?

Cliquez pour agrandir...

Dans le fichier Camscanner

Ta macro fonctionne sur mon pc et je t'en remercie, malheureusement j'ai des restrictions sur les macro sur les pc du taff, c'est très embêtant car ça me restreint dans mes possibilitées c'est pour ça que j'ai fait mon calculateur sous forme de formules et non macro mais j'avoue ne pas du tout avoir pensé à l'indiquer dans le post et je m'en excuse sincèrement. Je débute et je pense que ça se voit ...

J'essaye via les formules mais c'est pas probant ...
Retranscrire la valeur d'une cellule dans une autre, y a pas de soucis mais la il s'agit de retranscrire la valeur d'une cellule dans une RECHERCHEV ou X (j'ai fait les formules avec X aussi) ou autre genre EQUIV.

Bon après différents essais il semblerait que les protections sur les macros ne concernent que les fichiers extérieurs du coup ...
Un enorme MERCI !! ça marche super bien, je suis en train de l'adapter pour les autres valeurs que je veux prendre en compte (ajout via la macro des TT Jours (calculateur) dans HS Normal HS-Janvier-23, TT Nuits .... jusqu'au mois HISTO.V et MOIS DE PAYE (j'ai rajouter mois HISTO.V et MOIS DE PAYE en K13 et K14 sur le calculateur) comme ça je passe uniquement par la feuille de calcul qui entre toutes mes valeurs en cliquant.

VB:
Sub CalculB()
Application.ScreenUpdating = False
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim Derlig1&, Derlig2&

Set Ws1 = Sheets("HS-Janvier-23")
Set Ws2 = Sheets("Calculateur")

Derlig1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row

With Ws1
For i = 2 To Derlig1
If .Range("B" & i) = Ws2.Range("K8") Then
If .Range("S" & i) = "" Then .Range("S" & i) = Ws2.Range("J32").Value
End If
If .Range("B" & i) = Ws2.Range("K8") Then
If .Range("H" & i) = "" Then .Range("H" & i) = Ws2.Range("D26").Value
End If
If .Range("B" & i) = Ws2.Range("K8") Then
If .Range("I" & i) = "" Then .Range("I" & i) = Ws2.Range("F26").Value
End If
If .Range("B" & i) = Ws2.Range("K8") Then
If .Range("J" & i) = "" Then .Range("J" & i) = Ws2.Range("H26").Value
End If
If .Range("B" & i) = Ws2.Range("K8") Then
If .Range("O" & i) = "" Then .Range("O" & i) = Ws2.Range("K13").Value
End If
If .Range("B" & i) = Ws2.Range("K8") Then
If .Range("P" & i) = "" Then .Range("P" & i) = Ws2.Range("K14").Value
End If
Next i
End With

Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub
Bon j'ai fait qu'un paste avec une adaptation bourrin mais je suppose qu'on peut mettre un genre de else if au lieu de répéter comme j'ai fait et en faisant des tests je me suis rendu compte que si la case observations de l'agent est vide il écrit dedans mais dans le cas où celle-ci est vide mais par exemple où dans les cases HS Normales ou HISTO.V dans HS-JANVIER-23 serait déjà remplie de valeurs (mais la case observations toujours vide [c'est ma cellule la plus importante parce que si elle est vide c'est que j'ai pas terminé le relevé/calcul], la macro ne réécrit pas sur ces données dans HS-JANVIER-23. Comment puis-je procéder pour qu'il réécrive par-dessus les données HS Normales(H), HS Nuit(I), HS DIM/JF(J), HISTO.V(O) et MOIS DE PAYE(P) en gardant bien entendu NE PAS REECRIRE sur S si pas vide?

Jvais poster le fichier modifié une fois terminé pour ceux à qui ça pourrait servir!