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

Microsoft 365 copier des cellules sous conditions

Créer une discussion

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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée 🙂

Je fais appel à nouveau à nos ténors préférés car, malgré mes recherches et tests, je n'arrive pas à coder pour réaliser mon besoin :
Vous le verrez dans le fichier test joint

si la cellule "C19" est égale à "libre" et la cellule "D19" est vide,
alors copier les cellules "A19 à "C19 sous la 1ère ligne vide "de la Colonne E"
en cellules "Colonnes A à C"

Important : il peut y avoir bcp plus de cellule NON VIDES en colonne E
.........................et bcp plus de cellules à déplacer en en colonnes A à C

J'avais aussi pensé aux boucles mais il y a 2 conditions et je n'y arrive pas 😡

Auriez-vous la solution ?
Un grand merci déjà pour m'avoir lu.
Amicalement,
lionel,
 

Pièces jointes

Solution
Bonjour et bonne année
ci dessous la macro à utiliser

VB: 
Sub action()
  Dim i As Long, dl As Long, lig As Long
  dl = Range("E" & Rows.Count).End(xlUp).Row
  lig = dl + 1
  For i = 3 To dl
    If Range("C" & i).Value = "libre" And Range("D" & i) = "" Then
      Range(Cells(i, "A"), Cells(i, "D")).Copy Destination:=Range("A" & lig)
      Range(Cells(i, "A"), Cells(i, "D")).ClearContents
      lig = lig + 1
    End If
  Next
End Sub

A+ François
Trier par date Trier par votes
Bonjour et bonne année
ci dessous la macro à utiliser

VB: 
Sub action()
  Dim i As Long, dl As Long, lig As Long
  dl = Range("E" & Rows.Count).End(xlUp).Row
  lig = dl + 1
  For i = 3 To dl
    If Range("C" & i).Value = "libre" And Range("D" & i) = "" Then
      Range(Cells(i, "A"), Cells(i, "D")).Copy Destination:=Range("A" & lig)
      Range(Cells(i, "A"), Cells(i, "D")).ClearContents
      lig = lig + 1
    End If
  Next
End Sub

A+ François
 
Vote positif 1 Vote négatif
Solution
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

I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
405
sylvanu
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
266
Phil69970
A
  • Résolu(e)
XL 2016 Colorer cellules suivant condition saisie texte en VBA
Réponses
5
Affichages
266
Al1_44
A
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
283
AtTheOne
K
  • Question Question
Microsoft 365 Remplir automatiquement une cellule sous conditions
Réponses
4
Affichages
379
Kizito
K
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
341
job75
T
  • Question Question
Microsoft 365 Besoin d'aide pour transférer des cellules sous plusieurs conditions
Réponses
5
Affichages
565
fanfan38
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
463
Dranreb
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
232
cathodique
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
375
Perceval973
P
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
362
Olihoes
O
S
  • Résolu(e)
XL 2016 Copier/Coller des cellules en multipliant par des cellules sur une autre page
Réponses
3
Affichages
710
migau
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
770
MGH
M
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
916
chaelie2015
M
  • Question Question
Microsoft 365 Verrouiller des cellules sous plusieurs conditions
Réponses
0
Affichages
399
MONTREAL2020
M
R
  • Résolu(e)
XL 2019 Comment extraire séparément plusieures chaines de caractères ou chiffres/nombres depuis une cellule avec libellé complexe alpha numérique
2
Réponses
28
Affichages
1 K
Renardy
R
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
580
Nadou69
A
  • Résolu(e)
Microsoft 365 Vider des listes déroulantes en cascade
Réponses
6
Affichages
686
Franc58
F
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
619
Webperegrino
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…