Discussion :

[saladin90]

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 remerciesuivi avant vente..xlssuivi avant vente..xls

[Daniel.C]

Bonjour,

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).

[saladin90]

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"

[Daniel.C]

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

Tu veux dire que tu copies dans cette feuille ?

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.

[saladin90]

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

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[saladin90]

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