Microsoft 365 SI cellule vide dans la colonne A

[Moreno076]

Bonsoir le forum

Je souhaiterais adapter cette formule.
Si dans la colonne A case vide alors on applique cette formule et on ajoute en plus quantité de la colonne I sinon on laisse son contenu.
SI possible avec une petite variante, si 'RLR'!A:A = date du jour alors écrire "RECEPTIONNEE"

Range("A2").Formula = "=IFERROR(INDEX('RLR'!A:A,MATCH(B2,'RLR'!C:C,0)),"""")"
Range("A2:A" & Derlg).FillDown

Merci

 

[Moreno076]

Je ne vois rien à d'autre àchanger dans wbksource.worksheets(1).usedrange.copy destination:=wshcible.[A1] si la source et la destination est bonne

 

[Dranreb]

Je le supposais, c'est pourquoi je le proposai comme ça, même pour le fichier X3 où les données commencent à la ligne 7 et non la 2 comme les autres. On dépose tout ce qu'il y a, tel que c'est, y compris les titres.

 

[Moreno076]

J'ai fait ça dés le départ

Ce n'est pas bon?

 

[Dranreb]

Faites des essais, vous verrez bien
Le message au début pourrait être transformé en message de confirmation si vous voulez, avec réponse Oui/Non possible.
Laissez quand même l'instruction d'effacement des cellules au début, au cas où il y aurait moins de lignes qu’auparavant. Sinon celles en plus de la dernière fois demeureraient.

 

[Moreno076]

J'ai fait des essais tel quel mais ca charge jamais mon fichier réception.
Celui ci est celui de mon PC dans le chemin indiqué

Il le trouve bien 7/03 12h53 mais sans plus

 

[Dranreb]

Avez vous ajouté devant l'instruction WshCible.Cells.ClearContents ?
peut être le nouveau fichier est-il vide ?
Essayez comme ça :

Sub VerserDonnées(ByVal WshCible As Worksheet, ByVal WbkSource As Workbook)
   WbkSource.Activate
   WbkSource.Worksheets(1).Activate
   ActiveSheet.UsedRange.Select
   If MsgBox("Le contenu présentement sélectionné doit-il remplacer" _
      & vbLf & "celui de la feuille ""[" & ThisWorkbook.Name & "]" & WshCible.Name & """ ?", _
      vbYesNo, "VerserDonnées") = vbNo Then Exit Sub
   WshCible.Cells.ClearContents
   Selection.Copy Destination:=WshCible.[A1]
   End Sub

 

[Moreno076]

Avez vous ajouté devant l'instruction WshCible.Cells.ClearContents ?
peut être le nouveau fichier est-il vide ?
Essayez comme ça :

Sub VerserDonnées(ByVal WshCible As Worksheet, ByVal WbkSource As Workbook)
   WbkSource.Activate
   WbkSource.Worksheets(1).Activate
   ActiveSheet.UsedRange.Select
   If MsgBox("Le contenu présentement sélectionné doit-il remplacer" _
      & vbLf & "celui de la feuille ""[" & ThisWorkbook.Name & "]" & WshCible.Name & """ ?", _
      vbYesNo, "VerserDonnées") = vbNo Then Exit Sub
   WshCible.Cells.ClearContents
   Selection.Copy Destination:=WshCible.[A1]
   End Sub

En fait je fais ok pour les feuilles présentées sans vérifier et en fait les feuilles présentées ne correspondent pas. feuilles présentées rupture c est extraction reappro

 

[Dranreb]

Je ne vois pas comment c'est possible.
Essayez comme ça :

Sub VerserDonnées(ByVal WshCible As Worksheet, ByVal WbkSource As Workbook)
   Dim RngSource As Range
   Set RngSource = WbkSource.Worksheets(1).UsedRange
   Application.Goto RngSource
   If MsgBox("Actuellement sélectionné :" & vbLf & """" & RngSource.Address(False, False, xlA1, True) & """." _
      & vbLf & "Ce contenu sélectionné doit-il remplacer celui de la feuille :" _
      & vbLf & """[" & ThisWorkbook.Name & "]" & WshCible.Name & """ ?", _
      vbYesNo, "VerserDonnées") = vbNo Then Exit Sub
   WshCible.Cells.ClearContents
   RngSource.Copy Destination:=WshCible.[A1]
   End Sub

 

[Moreno076]

Ca fait pareil je vous joint le fichier avec les captures d 'écran j'ai bien repris le dernier fichier que vous m'avez envoyé et j'ai modifié la macro

 

[Dranreb]

D'haaaaacord !
La procédure précédente doit être corrigée comme suit :

Sub ChargementDonnées()
   Dim Chemin As String, RngFic As Range, TFic(), C As Long, NomFic As String, DatFic As Date, WbkDon As Workbook
   Chemin = Me.[CheminDonnées].Value
   Set RngFic = Me.[TabFichiers]: TFic = RngFic.Value
   For C = 2 To 5
      If TFic(3, C) < TFic(6, C) Then
      Set WbkDon = Workbooks.Open(Chemin & TFic(5, C))
      Select Case C
         Case 2: VerserDonnées WshRuptur, WbkDon
         Case 3: VerserDonnées WshExtRea, WbkDon
         Case 4: VerserDonnées WshRécept, WbkDon
         Case 5: VerserDonnées WshCdeCX3, WbkDon
         End Select
      WbkDon.Close SaveChanges:=False
      If VersementOK Then
         TFic(2, C) = TFic(5, C)
         TFic(3, C) = TFic(6, C)
         TFic(4, C) = Now
         End If
      Next C
   End Sub

J'avais mis Case 1 2 3 4 au lieu de 2 3 4 5, oubliant que C était le numéro de colonne dans TFic, et non le numéro de la source, qui commence à la colonne 2

Tout ça ce sont des choses que je ne peux pas tester, n'est-ce pas …

 

[Moreno076]

D'haaaaacord !
La procédure précédente doit être corrigée comme suit :

Sub ChargementDonnées()
   Dim Chemin As String, RngFic As Range, TFic(), C As Long, NomFic As String, DatFic As Date, WbkDon As Workbook
   Chemin = Me.[CheminDonnées].Value
   Set RngFic = Me.[TabFichiers]: TFic = RngFic.Value
   For C = 2 To 5
      If TFic(3, C) < TFic(6, C) Then
      Set WbkDon = Workbooks.Open(Chemin & TFic(5, C))
      Select Case C
         Case 2: VerserDonnées WshRuptur, WbkDon
         Case 3: VerserDonnées WshExtRea, WbkDon
         Case 4: VerserDonnées WshRécept, WbkDon
         Case 5: VerserDonnées WshCdeCX3, WbkDon
         End Select
      WbkDon.Close SaveChanges:=False
      If VersementOK Then
         TFic(2, C) = TFic(5, C)
         TFic(3, C) = TFic(6, C)
         TFic(4, C) = Now
         End If
      Next C
   End Sub

J'avais mis Case 1 2 3 4 au lieu de 2 3 4 5, oubliant que C était le numéro de colonne dans TFic, et non le numéro de la source, qui commence à la colonne 2

Tout ça ce sont des choses que je ne peux pas tester, n'est-ce pas …

Pas de soucis le tout c'est de trouver.

Ca ne fonctionne pas là et en bas du coup je remets simplement la ligne? Si vous voulez on peut se créer un chemin commun?

 

[Dranreb]

Rien compris, là.

 

[Moreno076]

Je disais si vous voulez on peut se créer un chemin comme genre c:\gigogne\

 

[Dranreb]

Ah… VersementOK est une variable globale Private que j'ai ajoutée pour ne pas corriger les lignes 2 à 4 si les données n'ont pas été versées.
Je joins le fichier ce sera plus simple.

 

[Moreno076]