permutage de cell. si ok

[pilou]

Bonjour everybody

j'ai une demande un peu bizarre !!!!

je voudrais que sur mon fichier excel, sur demande, il puisse me permuter 2 cellules entre elles

ex (A1) = toto (c1) = titi
alors excel me pose la question :
souhaitez vous permuter oui non
si oui
(A1) deviens titi et (C1) deviens toto
et on passe a la ligne suivante

ce serait genial si vous avienz une soluce pour ca
merci a tous

 

[Hervé]

Bonjour pilou

ce type de code te demande si tu veux permuttez pour chaque ligne en colonne A :

Sub Bouton1_QuandClic()
Dim c As Range
Dim temp

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
        If MsgBox('Voulez-vous permutter ' & c & ' et ' & c.Offset(0, 2) & ' ?', vbYesNo) = vbYes Then
                temp = c
                c = c.Offset(0, 2)
                c.Offset(0, 2) = temp
        End If
Next c
       
End Sub

Par contre, j'espère que tu n'as pas trop de données car ca va vite te fatiguer ces msgbox, non ?

salut

 

[pilou]

merci herve c ce qu'il me faut

mais je vais abuser car vraiment vba je connais pas

si je veux permuter colonne P en colonne C suivant la reponse que dois je modifier

merci de ton aide
c cool

 

[pilou]

et et et.....
un bouton stop please !!!!!!!!
et pourquoi pas une zone qui me permette de reprendre à une ligne donnee

merci merci
je sais j'abuse

promis je me mets a apprendre le vba.......

 

[Hervé]

re 🙂

je me doutais bien que ca te lasserait ces msgbox 🙂

j'ai rajouter un bouton annuler qui permet de sortir de la macro (attention, toutefois les précédentes modifs ne seront pas annuler)

Sub lolo_Bouton1_QuandClic()
Dim c As Range
Dim temp

For Each c In Range('c1:c' & Range('c65536').End(xlUp).Row)
        Select Case MsgBox('Voulez-vous permutter ' & c & ' et ' & c.Offset(0, 13) & ' ?', vbYesNoCancel)
                Case 6: 'reponse oui
                temp = c
                c = c.Offset(0, 13)
                c.Offset(0, 13) = temp
                Case 2: Exit Sub 'reponse annuler
        End Select
Next c

End Sub

pour permuttez la colonne c avec la colonne P :

For Each c In Range('c1:c' & Range('c65536').End(xlUp).Row)

ce code va te faire parcourir toutes les cellules de la colonne C.

la cellule P se trouve 13 colonnes après la C, on utilise donc c.offset(0,13) qui permet de se déplacer de 13 colonnes sur la meme ligne.

salut

 

[Hervé]

re

la version te permettant de reprendre le code à la ligne ou tu t'etais arreter :

Public ligne As Integer
Sub lolo_Bouton1_QuandClic()
Dim c As Range
Dim temp

If ligne = 0 Then ligne = 1

If ligne > 1 Then
        If MsgBox('reprendre à la ligne ' & ligne & ' ?', vbYesNo) = vbNo Then
                ligne = 1
        End If
End If

For i = ligne To Range('c65536').End(xlUp).Row
        Select Case MsgBox('Voulez-vous permutter ' & Cells(i, 3) & ' et ' & Cells(i, 16) & ' ?', vbYesNoCancel)
                Case 6: 'reponse oui
                temp = Cells(i, 3)
                Cells(i, 3) = Cells(i, 16)
                Cells(i, 16) = temp
                Case 2 'reponse annuler
                ligne = i
                Exit Sub
               
        End Select
Next i
ligne = 0
End Sub

a placer dans un module standard.

salut

 

[pat1545.]

Salut,

largement inspiré du code' de Hervé mais à mettre dans le code de la feuille et double clic sur une cellule de la colonne C (entre C1 et C100):

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect([C1:C100], Target) Is Nothing Then Exit Sub
Dim temp As Variant
Select Case MsgBox('Voulez-vous permutter ' & Cells(ActiveCell.Row, 3) & ' et ' _
& Cells(ActiveCell.Row, 16) & ' ?', vbYesNoCancel)
Case 6: 'reponse oui
temp = Cells(ActiveCell.Row, 3)
Cells(ActiveCell.Row, 3).Value = Cells(ActiveCell.Row, 16).Value
Cells(ActiveCell.Row, 16) = temp
Case 2 'reponse annuler
Exit Sub
End Select
End Sub

Patrick