Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour décaler des cellules vers le bas si condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion oyanka
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

oyanka

XLDnaute Nouveau
Bonsoir,
ça fait des heures que je tourne en rond sur mon problème, mais je ne suis décidément pas douée pour les boucles... 😡
voilà, j'ai besoin d'une macro qui décale vers le bas les cellules C et D d'une ligne à chaque fois que A et C de cette même ligne sont différentes (ci-joint fichier).
Merci d'avance pour votre aide !
 

Pièces jointes

Trier par date Trier par votes
Re : macro pour décaler des cellules vers le bas si condition

bonsoir oyanka le forum
ton fichier c'est quoi? c'est pour faire quoi? comment ? et ou? et pourquoi? il n'y a rien d'indiqué sur ce que tu souhaites obtenir deux tableaux dans la feuille 1 et un tableau dans le deux mais la relation a faire là ???????????????,,
alors explique ce que tu veux et on va faire
a+
papou😱
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour décaler des cellules vers le bas si condition

Bonsoir oyanka et bienvenu 🙂

En interprétation libre et en attendant les éclaircissements demandés par Paritec (que je salue) un essai de quelque chose dans le fichier joint sans VBA. Les formules sont dans les colonnes F à I de la feuille "Feuil1".
 

Pièces jointes

Vote positif 0 Vote négatif
Re : macro pour décaler des cellules vers le bas si condition

Bonsoir MaPomme le forum
bah si tu as compris ce qu'il veut obtenir je te tire mon chapeau, je vais aller voir cela de suite
a+
papou😱
 
Vote positif 0 Vote négatif
Re : macro pour décaler des cellules vers le bas si condition

Re Mapomme😱 le forum
bah oui que tu as tout compris je ne voyais pas la finalité de ces deux tableaux, mais là ok
par contre si il y a des doublons dans la colonne A là??? enfin a suivre
mais l'énoncé aurait pu être "" comparer les colonnes AB aux colonnes CD de la feuille 1"" la notion d'ajout de ligne?????
a+
papou
 
Vote positif 0 Vote négatif
Re : macro pour décaler des cellules vers le bas si condition

Bsr papou & mapomme, et les autres

Merci pour vos solutions, malheureusement ce n'est pas vraiment ce que je recherche ; mais là c'est ma faute vu la formulation de ma demande... Désolée

Il me faut vraiment une macro (pas des formules) , qui va d'ailleurs s'intercaler entre d'autres que j'ai réussi à bidouiller.

Au départ, j'ai un premier tableau T1 issu d'une extraction de données SAP ; sur nouveau fichier joint : colonne A pour ref & colonne B pour qté.
Qqes heures + tard, je fais une 2nde extraction dans un tableau T2 (colonne C pour ref & colonne D pour qté). Là, les données ont évolué.
Je colle les 2 tableaux l'un à côté de l'autre et j'ai besoin de repérer quelles ref ont été supprimées/gardées (insérer des cellules vides en C et D quand ref en A<> ref en C), et si les qtés ont été modifiées. C'est sur la partie insertion que je bloque !

J' espère que le nouveau fichier sera + explicite, avec en feuille 1 ce que j'ai, et en feuille 2 ce que je voudrais obtenir selon critères (les couleurs sont juste pour repérer, mais pas à intégrer dans la macro).

Encore merci
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour décaler des cellules vers le bas si condition

Bonsoir oyanka,

Un essai de comparaison de deux colonnes:
Code: 
Sub Comparer()
Dim nLig1 As Long, nLig2 As Long, i As Long

Application.ScreenUpdating = False
'effacement colonne E
Columns("e").ClearContents

'tri colonne A et B
nLig1 = Cells(Rows.Count, "a").End(xlUp).Row
Range(Cells(2, "a"), Cells(nLig1, "b")).Sort key1:=Columns("a"), Header:=xlNo
'tri colonne C et D
nLig2 = Cells(Rows.Count, "c").End(xlUp).Row
Range(Cells(2, "c"), Cells(nLig2, "d")).Sort key1:=Columns("c"), Header:=xlNo

'comparaison colonne A et B
i = 2
Do While Cells(i, "a") <> "" And Cells(i, "c") <> ""
If Cells(i, "a") < Cells(i, "c") Then
  Cells(i, "c").Resize(, 2).Insert xlShiftDown
ElseIf Cells(i, "a") > Cells(i, "c") Then
  Cells(i, "a").Resize(, 2).Insert xlShiftDown
End If
i = i + 1
Loop

'Marquage différence ou non
nLig1 = Cells(Rows.Count, "a").End(xlUp).Row
nLig2 = Cells(Rows.Count, "c").End(xlUp).Row
If nLig2 > nLig1 Then nLig1 = nLig2
For i = 2 To nLig1
  If Cells(i, "b") <> Cells(i, "d") Then Cells(i, "e") = "diff"
Next i

Application.ScreenUpdating = True
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour décaler des cellules vers le bas si condition

😀 😀 😀
Génial, ça marche ! mapomme, tu m'enlèves une sacrée épine du pied !
Je crois que j'étais tellement "traumatisée" par ces sacrées boucles que j'en ai zappé l'étape tri...
Aujourd'hui j'ai integré ton code (après rectif de mes précédents et ultérieurs critères de tri) et ça tourne sans aucun problème !
Merci encore, surtout pour ta persévérence ;-)
😎
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
193
sylvanu
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
307
berru76
B
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
253
dadaze
D
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
293
Kristelle1555
K
  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
365
Magnio
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
W
  • Question Question
Microsoft 365 Macro pour un bilan fonctionnement coloré
Réponses
3
Affichages
131
sylvanu
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
214
pamino
P
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
119
Eric 888
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
412
Thomas75
T
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
M
  • Résolu(e)
XL 2013 Planning perpétuel Excel
2
Réponses
17
Affichages
1 K
Manutela
M
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
670
Dégé59
D
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
484
Anthony_51
A
H
  • Résolu(e)
Autres Faciliter saisi des notes
Réponses
10
Affichages
561
fanfan38
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
881
Max
M
H
  • Résolu(e)
Microsoft 365 Archivage automatique sous condition (Macro)
Réponses
2
Affichages
685
HugoLaChips
H
A
  • Résolu(e)
XL 2013 Formule SI ET qui ne fonctionne pas toujours.
Réponses
9
Affichages
818
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…