Si cellule de colonne A vide, alors formule dans cellule de colonne B

**Theyoshi** · 31/10/2020, 13h56

Bonjour

Je voudrais une aide.
Pour un calcule de taux d'occupation, j'ai développé une macro.
Elle copie des données de deux tableaux la suite puis ajouter une formule à chaque ligne crées.
Sauf que cela ne marche pas pour l'ajout. J'ai beau tourner dans tous les sens, l'erreur m'échape.*
Qu'en pensez vous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Taux()
'
'
'
  On Error GoTo ErreurMacro
 
  Dim DLig As Long
  Dim i As Integer
 
  ' Récupérer la dernière ligne du tableau
  DLig = Range("A" & Rows.Count).End(xlUp).Row
 
  Range("A2:A" & DLig & ",B2:B" & DLig & ",D2:D" & DLig & ",M2:M" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
 
  With Sheets("Taux d'occupation").Range("A3").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With
 
  Sheets("Archives").Activate
 
  DLig = Range("A" & Rows.Count).End(xlUp).Row
 
  Range("A68:A" & DLig & ",B68:B" & DLig & ",D68:D" & DLig & ",M68:M" & DLig & ",BE68:BE" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
 
  With Sheets("Taux d'occupation").Range("A69").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With
 
  For i = 3 To 150
 
    If Range(A & i).Value <> "" Then
 
 
    Cells(E, i).FormulaLocal = "=SI(MOIS(Tableau8[[#En-têtes];[janv-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];-1);[@[Date d''arrivée]]-1));""En_attente"")"
    Cells(F, i).FormulaLocal = "=SI(MOIS(Tableau8[[#En-têtes];[févr-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[févr-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[févr-2020]];-1);[@[Date d''arrivée]]-1));""En_attente"")"
 
    End If
 
  Next i
 
ErreurMacro:
 
MsgBox Err.Number & vbLf & Err.Description
 
End Sub

**mfoxy** · 31/10/2020, 14h04

Bonjour,

Après lecture rapide du code, il me semble (vu la formule) que tu utilises les tableaux structurés, du moins pour la synthèse de tes deux plages.
Dans ce cas,il te suffirait d'ajouter la formule dans la première cellule de la colonne devant donner le résultat, cette formule serait automatiquement étendue à toute la plage de la colonne et ce sans Vba.

Bat,

**Theyoshi** · 31/10/2020, 14h45

Bonjour Mfoxy

Le problème est que cela ne se fait pas. De plus, après utilisations, les lignes copiées vont être supprimées.

**mfoxy** · 31/10/2020, 15h06

Re,

Dans les ligne 33 à 37, boucle pour ajout de la formule, je ne vois pas la parentalité des cellules.
Donc la formule sera ajoutée dans la feuille active du classeur, qui n est peut-être pas la feuille de synthèse ?

De plus ,lorsque l,on travail avec des tableau structurés, listobject, la syntaxe de code est différente de celle des plage standard.
Vous trouverez sur ce site, de très bon tuto , de Phillipe Tulliez et Pierre Fauconnier, vous permettant d'apprivoiser ceux-ci.

Bav

**Theyoshi** · 31/10/2020, 15h17

Pour être franc, je ne comprends pas la parentalité des cellules

**Philippe Tulliez** · 31/10/2020, 15h40

Bonjour,

Pour être franc, je ne comprends pas la parentalité des cellules

Chaque objet a un parent qui lui même peut en avoir un.
Ainsi une cellule (objet Range) a comme parent la feuille (objet Worksheet) dans laquelle elle se trouve qui elle même a comme parent le classeur (objet Workbook).
Dans la ligne de code Range("A1").Value="Toto", on écrira la chaine Toto dans la cellule A1 de la feuille active.
Alors que si l'on écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("maFeuille").Range("A1").Value = "Toto"

on écrira bien dans la bonne cellule quelque soit la feuille active.

C'est exactement comme dans la nature.
La feuille a comme parent, la branche qui elle même a comme parent l'arbre qui lui même pourrait avoir comme parent le parc ou la forêt, etc.

**Theyoshi** · 31/10/2020, 16h20

Je progresse mais ca marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub Taux()
'
'
'
 
'On Error GoTo ErreurMacro
 
  Dim DLig As Long
  Dim i As Integer
 
  Worksheets("Taux d'occupation").Range("A3:E200").Clear
 
  ' Récupérer la dernière ligne du tableau
  DLig = Range("A" & Rows.Count).End(xlUp).Row
 
  Range("A2:A" & DLig & ",B2:B" & DLig & ",D2:D" & DLig & ",M2:M" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
 
  With Sheets("Taux d'occupation").Range("A3").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
 
  End With
 
  Sheets("Archives").Activate
 
  DLig = Range("A" & Rows.Count).End(xlUp).Row
 
  Range("A68:A" & DLig & ",B68:B" & DLig & ",D68:D" & DLig & ",M68:M" & DLig & ",BE68:BE" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
 
  With Sheets("Taux d'occupation").Range("A69").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With
 
  Sheets("Taux d'occupation").Activate
 
   For i = 3 To 150
 
   If Cells(A & i).Value <> "" Then
 
   Cells(E & i).FormulaLocal = "=SI(MOIS(Tableau8[[#En-têtes];[janv-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];-1);[@[Date d''arrivée]]-1));""En_attente"")"
 
    End If
 
  Next i
 
 
ErreurMacro:
 
MsgBox Err.Number & vbLf & Err.Description
 
End Sub

**Philippe Tulliez** · 31/10/2020, 16h45

Bonjour,

Je progresse mais ca marche pas

"Cela ne marche pas", ne veut rien dire.
Y a t'il un message d'erreur et si oui lequel et à quelle ligne ?

La seule parentalité que je vois, c'est à la ligne 11 et le bloc With...End With débutant ligne 19 et la ligne 31
Personnellement, je précise toujours l'objet Workbook également. Sinon, il y a toujours un risque dans l'avenir de rencontrer des problèmes si plusieurs classeurs sont ouverts.

Il faut absolument proscrire la méthode Activate et l'objet Selection. Cela ralenti les procédures et sont parfaitement inutiles