Discussion :

[spico45]

Bonjour à tous,

en feuille1, j'ai une macro qui me permet d'afficher des données venant d'onglet bien précis. Maintenant sur la cellule d'à coté j'inscrit des chiffres je voudrais que quand je clique sur un bouton, ces données repartent dans le bon onglet dans la place libre.

merci

[Tartiflette38]

Dans la cellule d'à côté de quoi ?
Ca s'applique a une cellule voisine , une colonne entière ?

[spico45]

En c2, j'ai une donnee qui correpond à un onglet
En c3, j'ai une donnée qui me renvoi dans l'onglet à une ligne spécifique

ensuite grace à ca j'ai recuperer des informations qui viennent se coller en c5,c6... jusqu'à ce que toute les données soient récupérées.

une fois que ces données sont récupérées, je vais entrer en face de chaque ligne où il y a une donnée des chiffres donc en cellule F5....
et des que je clique sur un bouton il faut que tout ces chiffres viennent s'inscrire dans le bon onglet sur les lignes correspondantes. Sachant que j'enregistre des donnees souvent il faudra que les données s'inscrivent à partir de la dernière cellule vide.

Si besoin je pourrais te joindre mon fichier excel et ce que j'ai commencé à faire.

Merci

[spico45]

Pas de réponse

voilà mon code, c'est vraiment la première fois que je me lance donc je epnse que j'ai fait plein de chose inutile.

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
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
 
Dim ligdeb As Long, ligfin As Long
Dim ligdeb2 As Long
Dim typ As String
Dim DAB As String
Dim c As Range
Dim ws As Worksheet
 
Set ws = Sheets("" & Range("c2").Value & "")
DAB = Range("c2").Value
If Range("c2").Value <> "" And Range("c3").Value <> "" Then
        typ = "pc " & Range("c3").Value
 
        Set c = ws.Columns("A:A").Find(typ, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            ligdeb2 = c.Row
 
ligdeb = Range("f4").End(xlDown).Row
ligfin = Range("f16").End(xlUp).Row
Range("f" & ligdeb, "f" & ligfin).Copy ws.Range( & ligdeb2)
 
End If
End If
End Sub

mon problème se situe à la fin, lorsque j'ai selectionné mes données que je voulais copier, j'arrive à les coller mais pas au bonne endroit. Si je mets

Code :

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

ws.range("aa" & ligdeb2)

il me colle les données dans la colonne AA mais pour ma part la colonne n'est jamais la même.
Dés fois c'est A ou B ou AB, en résumé il faut que la macro colle les données lorsqu'elle rencontre la première cellule vide

[Fvandermeulen]

Salut,
Pour une première c'est pas si mal, mais en effet, il y a des choses perfectibles (par exemple tu affecte la valeur d'une cellule à ta variable DAB mais tu ne l'utilise pas...), mais bon on va se pencher sur ton problème de colonne.

Tu peux facilement trouver le numéro de la dernière colonne avec cette méthode, je considère la ligne correspondante à ta variable Ligdeb2

Code :

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

DerCol = cells(Ligdeb2,rows(ligdeb2).cells.count).end(xltoleft).column

ce qui veut dire que la première colonne vide sur la ligne en question est:

Code :

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

Ws.cells(ligdeb2,DerCol)

Essaie de l'appliquer dans ton code, et dis quoi...

A+

[spico45]

Merci pour la réponse

j'ai essayer seulement il me colle toujours dans la colonne A.

en faite il faut qu'il aille sur la ligne qui correspond à "typ" et qu'à partir de cette ligne il trouve la première cellule vide et qu'il me recopie les données que je sélectionne en feuil1.

je suis désolé mais j'ai joint mon fichier avec pour que tu puisses constater, j'arrive pas à comprendre pourquoi ca ne marche pas.