Déplacement des cellules

Version imprimable

05/05/2014, 09h11
saladin90

1 pièce(s) jointe(s)

Déplacement des cellules

Bonjour,
j'ai commence à travailler avec VBA excel ça fait 3 jours ,et je veux créer une macro qui me permet de sélectionnée plusieurs cellules et les copier dans un tableau qu'est dans une autre feuilles , et il me faut aussi une macro qui détecte que si la case est déjà remplie ou pas dans le tableau si oui il passera directement à la deuxième cellule .
J'espère que j'ai bien détailler mon besoin et je souhaite que vous me proposer des solution
je vous remerciePièce jointe 144864 Pièce jointe 144864
05/05/2014, 10h01
Daniel.C

Bonjour,

Citation:

je veux créer une macro qui me permet de sélectionnée plusieurs cellules et les copier dans un tableau qu'est dans une autre feuilles

Dans quelle feuille les cellules sont-elles sélectionnées ? Dans quelle feuille se trouve le tableau de destination. Peux-tu donner un exemple (par exemple : je copie les cellules A1:K1 de la feuille X et je les colle dans le tableau qui se trouve sur la feuille Y).
05/05/2014, 11h11
saladin90

Déplacement des cellules

Bonjour,
je veux par exemple sélectionner dans la feuille "Caméra Fix IP" plusieurs Modèle après je passe à une autre feuille par exemple "PTZ IP" et à la fin je veux que toute ma sélection(Modèle + Caractéristique ) soit affiché dans un tableau dans la feuille "le matériel électrique"
05/05/2014, 12h30
Daniel.C

Citation:

je passe à une autre feuille par exemple "PTZ IP"

Tu veux dire que tu copies dans cette feuille ?

Citation:

et à la fin je veux que toute ma sélection(Modèle + Caractéristique ) soit affiché dans un tableau dans la feuille "le matériel électrique"

Il n'y a pas de feuille de ce nom dans ton classeur.
05/05/2014, 13h52
saladin90

je veux dire le "matériel sélectionné " plutôt

1 pièce(s) jointe(s)

Ca m'étonnerait que j'aie tout compris... Sélectionne une ou plusieurs références et clique sur le bouton "Recopie". Macro attachée au bouton :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    Dim C As Range, ligne As Long
    With Sheets("Le matériel séléctionné")
        ligne = .Cells(.Rows.Count, 4).End(xlUp).Row
        For Each C In selection
            ligne = ligne + 1
            C.Resize(, 2).Copy .Cells(ligne, 6)
        Next C
    End With
End Sub

Bonjour,

Merci pour votre réponse et votre aide ,j'ai essaye à votre programme ça marche bien par contre je veux qu'il me recopie ma première sélection dans la feuille "le matériel sélectionné " ,cellule "F10" le deuxième ça sera copier en "F11"...
j'ai essayé de modifier un peu ton code mais j’arrive tjs pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub Test1() Dim C As Range, ligne As Long Row = selection.Row Column = selection.Column Var1 = Cells(Row, Column) Var2 = Cells(Row, Column + 1) Sheets("Le matériel séléctionné").Select Range("F10").Value = Var1 Range("G10").Value = Var2 With Sheets("Le matériel séléctionné") ligne = .Cells(.Rows.Count, 4).End(xlUp).Row For Each C In selection ligne = ligne + 1 C.Resize(, 2).Copy .Cells(ligne, 6) Next C End With End Sub

Basé sur la proposition de Daniel avec InputBox (Type:=8)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim C As Range, ligne As Long
Dim Celselect As Range
Set Celselect = Application.InputBox("Sélectionnez les cellules", Type:=8)
With Sheets("Le matériel séléctionné")
  ligne = .Cells(.Rows.Count, 6).End(xlUp).Row
    For Each C In Celselect
      ligne = ligne + 1
      C.Resize(, 2).Copy .Cells(ligne, 6)
    Next C
End With
End Sub

1 pièce(s) jointe(s)

Bonjour,

J'ai supprimé toutes les cellules fusionnées qui compliquent beaucoup le code. J'ai aussi recopié l'utilisation de "InputBox de casefayere.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
    Dim C As Range, Ligne As Long
    Dim Celselect As Range
    Set Celselect = Application.InputBox("Sélectionnez les cellules", Type:=8)
    With Sheets("Le matériel séléctionné")
        For Each C In Celselect
            If .[F9] = "" Then
                C.Resize(, 2).Copy .Cells(9, 6)
            Else
                Ligne = Application.Match("Réseau", .[D:D], 0)
                .Rows(Ligne).Insert
                C.Resize(, 2).Copy .Cells(Ligne, 6)
                .Cells(Ligne, 4).Resize(, 4).Borders(xlEdgeTop).LineStyle = xlLineStyleNone
            End If
        Next C
    End With
End Sub

J'ai joint ton classeur modifié.

07/05/2014, 14h23
saladin90

Merci beaucoup pour votre aide , je vais essayer de faire la même chose pour les autres feuilles