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

déplacement simultané de 2 cellules non contigues

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cycy
  • 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
C

cycy

Guest
bonjour et merci à vous accordé de l'importance à mon problème
je souhaite sur un tableau déplacer le contenu d'une cellule vers la droite de 1,2,3.. colonnes et qu'en même temps le contenu d'une cellule 4 lignes plus bas ce déplace elle aussi en simultané vers la droite de 1,2,3 ....colonnes
le contenu des cellules est uniquement du texte
je ne veux avoir à sélectionner qu'une seule cellule
cordialement
cyrille
 
Trier par date Trier par votes
Re : déplacement simultané de 2 cellules non contigues

softmama bonjour ,
ta réponse est de plus en plus proche de ce que j'ai besoin
cependant j'ai fais des notes sur la pj pour que tu vois les probèmes qui subsistent et qui sont pour moi très importants
avant de chercher des solutions , si ce que j'ai noté n'est pas clair , n'hésite pas à me poser des questions
merci
cyrille
 

Pièces jointes

Vote positif 0 Vote négatif
Re: Re : déplacement simultané de 2 cellules non contigues

Re,

Tu vas être content je pense. Ton fichier fonctionne et en plus, je pense que j'ai compris ce que tu voulais...

VB: 
Private MemoVal, BoolDépl As Boolean, MemoSel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim c As Range
If (Target.Row - 24) Mod 11 < 2 Then
    Set c = Range("B" & Target.Row & ":B" & Target.Row + 11).Find(what:=MemoSel, LookIn:=xlValues, lookat:=xlWhole)
    If Target = "" Then
        If Not c Is Nothing Then
            MemoVal = Target.Offset(c.Row - Target.Row, 0).Value
            Target.Offset(c.Row - Target.Row, 0) = ""
            BoolDépl = True
        End If
    Else
        If Not c Is Nothing Then
            If BoolDépl = True Then
                Target.Offset(c.Row - Target.Row, 0) = MemoVal
                BoolDépl = False
            End If
        End If
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MemoSel = Target.Value
End Sub

cf. fichier joint 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Re: Re : déplacement simultané de 2 cellules non contigues

re ,
ce que tu viens de faire est absolument génial et correspond à 100 % à mes besoins
je ne sais pas comment te remercier
merci et à + pour d'autres défis
cyrille
 
Vote positif 0 Vote négatif
Re : déplacement simultané de 2 cellules non contigues

bonjour , softmama à travaillé sur ce dossier et à créé qq chose de parfait
j'aimerai y apporter une évolution
merci d'ouvrir le fichier joint pour voir les explications
 

Pièces jointes

Vote positif 0 Vote négatif
Re : déplacement simultané de 2 cellules non contigues

Bonjour cycy,

Ceci devrait fonctionner pour ce que tu demandes (à la place des macros en place) :
VB: 
Private MemoVal, BoolDépl As Boolean, MemoSel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim c As Range, LignMasquée()
Application.ScreenUpdating = False
ReDim LignMasquée(1 To ActiveSheet.UsedRange.Rows.Count)
For t = 1 To UBound(LignMasquée)
    LignMasquée(t) = IIf(Cells(t, 1).EntireRow.Hidden, True, False)
Next t
Rows.Hidden = False
If (Target.Row - 24) Mod 11 < 2 Then
    Set c = Range("B" & Target.Row & ":B" & Target.Row + 11).Find(what:=MemoSel, LookIn:=xlValues, lookat:=xlWhole)
    If Target = "" Then
        If Not c Is Nothing Then
            MemoVal = Target.Offset(c.Row - Target.Row, 0).Value
            Target.Offset(c.Row - Target.Row, 0) = ""
            BoolDépl = True
        End If
    Else
        If Not c Is Nothing Then
            If BoolDépl = True Then
                Target.Offset(c.Row - Target.Row, 0) = MemoVal
                BoolDépl = False
            End If
        End If
    End If
End If
For t = 1 To UBound(LignMasquée)
    If LignMasquée(t) = True Then Cells(t, 1).EntireRow.Hidden = True
Next t
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MemoSel = Target.Value
End Sub
 
Vote positif 0 Vote négatif
Re : déplacement simultané de 2 cellules non contigues

re ,
je viens de remplacer et adapter la macro dans mon tableau réel
cela fonctionne mais comme j'ai environ 27 clients avec chaque fois 40 lignes par client , quand je déplace une cellule , l'action que tu à rajouté ( afficher les lignes puis masquer les lignes ) deviens très long
y à il une solution plus rapide
merci
cyrille
 
Vote positif 0 Vote négatif
Re : déplacement simultané de 2 cellules non contigues

Re,

Ha oui, si bcp de lignes, ça risque d'être un peu long, ceci devrait être plus rapide, (à tester) :
VB: 
Private MemoVal, BoolDépl As Boolean, MemoSel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim c As Range
If (Target.Row - 24) Mod 11 < 2 Then
    Set c = Cells(Target.Row, 2)
    Do While c.Row < Target.Row + 40 ' Si 40 lignes par client
        If c = MemoSel Then Exit Do
        Set c = c(2, 1)
    Loop
    If Target = "" Then
        If c = MemoSel Then
            MemoVal = Target.Offset(c.Row - Target.Row, 0).Value
            Target.Offset(c.Row - Target.Row, 0) = ""
            BoolDépl = True
        End If
    Else
        If c = MemoSel Then
            If BoolDépl = True Then
                Target.Offset(c.Row - Target.Row, 0) = MemoVal
                BoolDépl = False
            End If
        End If
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MemoSel = Target.Value
End Sub

cf. Fichier en PJ
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : déplacement simultané de 2 cellules non contigues

bonjour softmama , le forum ,
après avoir fait quelques essais ça me semble tout à fait concluant
merci pour ta disponibilité
cyrille
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

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
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
535
danielco
D
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
J
  • Question Question
Autres Protection de données
Réponses
6
Affichages
315
TooFatBoy
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
493
Pepepichnette69
P
M
  • Question Question
XL 2021 Exportation codes et formules
Réponses
0
Affichages
470
Marc Vanlindt
M
N
  • Question Question
Microsoft 365 Affichage information de plusieurs cellules à partir d'une seule
Réponses
8
Affichages
452
narkoleptik
N
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
540
job75
C
  • Résolu(e)
XL 2021 Userform impression + choix des feuilles
Réponses
8
Affichages
685
candido57
C
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
927
crocrocro
C
B
  • Question Question
Microsoft 365 Je souhaite que la cellule résultat soit vierge si les autres cellules sont vide.
Réponses
4
Affichages
600
blancolie
B
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
680
Dégé59
D
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
850
Lu76Fer
D
  • Question Question
Microsoft 365 Problème de format de cellule en VBA
Réponses
11
Affichages
930
David
D
A
  • Question Question
Autres Copie avec incrémentation de cellules de type =$A$nn
Réponses
6
Affichages
269
sylvanu
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
  • Question Question
XL 2016 Apparition de cadres en survol de cellule
Réponses
2
Affichages
469
flocon
  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
5 K
jeff1494
J
  • Résolu(e)
Microsoft 365 Problème de décompte avec PQ
Réponses
8
Affichages
573
José FELIX
J
  • Résolu(e)
XL 2013 Masquer/Afficher une ligne de tableau Word en fonction de la valeur du contrôleur de contenu
2
Réponses
20
Affichages
2 K
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…