Discussion :

[Lo-j007]

Bonjour à tous,

Cela fait plusieurs jours que je suis bloquée sur ma macro, je cherche sur les sites et forums mais je ne parviens pas à trouver.

J'ai un tableau, de A à N, nombre de lignes variable, mes données débutent en A3

La macro que je cherche à réaliser est :

SI A3=A4 + B3=B4 + C3 est vide alors je supprime la cellule C3
SI A3=A4 + B3=B4 + D3 est vide alors je supprime la cellule D3
SI A3=A4 + B3=B4 + E3 est vide alors je supprime la cellule E3, et ainsi de suite jusqu'à la colonne N

Si A4=A5 + B4=B5 + C4 est vide, alors je supprime la cellule C4
Si A4=A5 + B4=B5 + D4 est vide, alors je supprime la cellule D4
Si A4=A5 + B4=B5 + C4 est vide, alors je supprime la cellule E4, et ainsi de suite jusqu'à la colonne N

Et ainsi de suite jusqu'à la dernière ligne de ma colonne A

A priori, pour les 2 premières conditions, je dois débuter de cette manière

Code :

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

1
2
3
4
5
6
 
Dim nbligne As Long, I As Long
  nbligne = Range("A3").CurrentRegion.Rows.Count
 
  For I = nbligne To 2 Step -1
    If (Range("B" & I).Value) = (Range("B" & I - 1).Value) And (Range("A" & I).Value) = (Range("A" & I - 1).Value) And ??? Then

Le 3ème AND je ne parviens pas à trouver comment l'écrire, malgré une vingtaine de tentatives

Pouvez-vous m'aider?

[Philippe Tulliez]

Bonjour,
Par exemple comme ceci

Code :

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

1
2
3
4
5
6
7
Sub T()
 Dim r As Long
 r = 4
 If Range("A" & r).Value = Range("A" & r - 1).Value And Range("B" & r).Value = Range("B" & r - 1).Value And Len(Range("C" & r - 1).Value) = 0 Then
   MsgBox "Oui"
 End If
End Sub

ou en utilisant la fonction IsEmpty

Code :

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

1
2
3
4
5
6
7
Sub T()
 Dim r As Long
 r = 4
 If Range("A" & r).Value = Range("A" & r - 1).Value And Range("B" & r).Value = Range("B" & r - 1).Value And IsEmpty(Range("C" & r - 1)) Then
   MsgBox "Oui"
 End If
End Sub

[Lo-j007]

Bonjour à toi et merci pour ta réponse

Je n'ai aucun message d'erreur mais la macro ne me change rien

Si tu en as l'occasion peux tu jeter un œil stp?

Merci

copie-de-comparatif-forum (version 1).xlsm

[Pierre Fauconnier]

Salut.

Au vu de tes données, je procéderais autrement. En fait, il faut réaliser la somme des heures contrat ou planning pour chaque personne, puisque tu n'as jamais deux valeurs dans la même colonne pour une personne et un type de données (paire ou impaire). Dans l'illustration suivante, ça revient à réaliser la somme des lignes 4 à 8 pour les colonnes des jours, puis la somme des lignes 9 à 13, et ainsi de suite.




Tag365 = travail pour Power Query.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    ModifierTypes = Table.TransformColumnTypes(Source,{{"Colonne1", type text}, {"Colonne2", type text}, {"Colonne3", type any}, {"Colonne4", type any}, {"Colonne5", type any}, {"Colonne6", type any}, {"Colonne7", type any}, {"Colonne8", type any}, {"Colonne9", type any}, {"Colonne10", type any}, {"Colonne11", type any}, {"Colonne12", type any}, {"Colonne13", type any}, {"Colonne14", type any}, {"Colonne15", Int64.Type}}),
    SupprimerPremièreLigne = Table.Skip(ModifierTypes,1),
    PromouvoirPremièreLigne = Table.PromoteHeaders(SupprimerPremièreLigne, [PromoteAllScalars=true]),
    AdapterTypes = Table.TransformColumnTypes(PromouvoirPremièreLigne,{{"Column1", type text}, {"Column2", type text}, {"Lundi", Int64.Type}, {"Mardi", Int64.Type}, {"Mercredi", Int64.Type}, {"Jeudi", Int64.Type}, {"Vendredi", Int64.Type}, {"Samedi", Int64.Type}, {"Lundi_1", Int64.Type}, {"Mardi_2", Int64.Type}, {"Mercredi_3", Int64.Type}, {"Jeudi_4", Int64.Type}, {"Vendredi_5", Int64.Type}, {"Samedi_6", Int64.Type}, {"Column15", Int64.Type}}),
    RegrouperSurPersonneEtType = Table.Group(AdapterTypes, {"Column1", "Column2"}, {{"Lundi contrat", each List.Sum([Lundi]), type nullable number}, {"Mardi contrat", each List.Sum([Mardi]), type nullable number}, {"Mercredi contrat", each List.Sum([Mercredi]), type nullable number}, {"Jeudi contrat", each List.Sum([Jeudi]), type nullable number}, {"Vendredi contrat", each List.Sum([Vendredi]), type nullable number}, {"Samedi contrat", each List.Sum([Samedi]), type nullable number}, {"Lundi planning", each List.Sum([Lundi_1]), type nullable number}, {"Mardi planning", each List.Sum([Mardi_2]), type nullable number}, {"Mercredi planning", each List.Sum([Mercredi_3]), type nullable number}, {"Jeudi planning", each List.Sum([Jeudi_4]), type nullable number}, {"Vendredi planning", each List.Sum([Vendredi_5]), type nullable number}, {"Samedi_Planning", each List.Sum([Samedi_6]), type nullable number}}),
    RemplacerNull = Table.ReplaceValue(RegrouperSurPersonneEtType,null,0,Replacer.ReplaceValue,{"Lundi contrat", "Mardi contrat", "Mercredi contrat", "Jeudi contrat", "Vendredi contrat", "Samedi contrat", "Lundi planning", "Mardi planning", "Mercredi planning", "Jeudi planning", "Vendredi planning", "Samedi_Planning"}),
    AjouterTotal = Table.AddColumn(RemplacerNull, "Total", each [Lundi contrat]+[Mardi contrat]+[Mercredi contrat]+[Jeudi contrat]+[Vendredi contrat]+[Samedi contrat]+[Lundi planning]+[Mercredi planning]+[Jeudi planning]+[Vendredi planning]+[Samedi_Planning])
in
    AjouterTotal

Si on veux le faire en VBA, on opère de la même façon: Sommer par groupe de ligne sur la première ligne du groupe, supprimer les suivantes et recommencer avec le groupe suivant.


ATTNETION: Tes données sont polluées par un tas de lignes "vides" mais qui ne sont pas vraiment vides (un espace en a, notamment). Il conviendrait de nettoyer cela. Ca peut se faire aussi par Power Query si cette solution est retenue, pour autant qu'il y ait une "logique" de remplissage qui puisse déboucher sur un filtre

[Pierre Fauconnier]

Par VBA, en suivant le même raisonnement

1. On boucle de 3 jusqu'à trouver du "vide" (attention aux données polluées en A, sans nom mais avec un espace)
2. On recherche la dernière ligne non vide en a
3. On compte le nombre de lignes doublonnées (nom + type pair/impair pour la ligne sur laquelle on est) avec COUNTIFS (NB.SI.ENS)
4. Pour chaque colonne de journée, on somme les valeurs des lignes doublonnées en A:B
5. On supprime les lignes en doublons.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
  Dim i As Long, j As Long, k As Long, l As Long
 
  i = 3
  Do While Range("a" & i).Value <> " "
    l = Range("a1048576").End(xlUp).Row
    k = Application.CountIfs(Range("a3:a" & l), Range("a" & i), Range("b3:b" & l), Range("b" & i))
    For j = 3 To 14
      Range("a" & i)(1, j).Value = Application.Sum(Range("a" & i)(1, j).Resize(k))
    Next j
    Range(i + 1 & ":" & i + k - 1).EntireRow.Delete
    i = i + 1
  Loop
End Sub

BIEN ENTENDU, à tester sur une copie de la feuille