Incrementer automatiquement et trier (sans liste)

[seb34]

Bonjour,

Je travaille sur un programme de gestion sous excel est je rencontre un problème qui commence à 😡
Voici mon problème:

J'ai une première feuille dans laquelle des données sont saisies manuellement dans une colonne A. Entre chaque donnée saisie il peut y avoir des cellules vides.

Je souhaite dans une feuillle que les données saisie dans la feuille 1 colonne A viennent s'incrémenter automatiquement. De ce côté, c'est nickel. MAIS, je souhaite que les données viennent s'incrémenter l'une à la suite de l'autre dans la feuille 2 (et donc s'en laisser d'espace) Exemple si je saisi en A1, A85, A99 je veux que ça vienne s'incrémenter en dans l'autre feuille en A1, A2, A3 et A1, A85, A99

Merci BEAUCOUP d'avance🙂

 

[lapix]

Re : Incrementer automatiquement et trier (sans liste)

Je l'ai mis dedans.
Il y avais juste un probleme d'espace en trop...

Voila !

http://cjoint.com/?lDiJ7I8Rh1

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

Vite fait bien fait, tu es un pro. J'ai vraiment des lacunes en VB et XL ... Au boulot ! Right now ! Merci en tout cas !

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

Je reviens vers vous car j'ai une question. En effet, je souhaite utiliser le meme code sur la meme pages mais pour des valeurs différentes.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("B9:B65536").Copy Destination:=Sheets("Feuil2").Range("B4")
Sheets("Feuil2").Range("B4:B4000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("C9:C65536").Copy Destination:=Sheets("Feuil2").Range("C4")
Sheets("Feuil2").Range("C4:C4000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Les codes marches impec dans les premieres cellules mais lorsque on commence a saisir des données dans, par exemple, feuil1 B 25. Ca ne fonctionne plus 😕

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

En fait si l'on prend ces deux fonctions séparement elles fonctionnes impec, mais si je l'ai mets ensemble ca merde. Je ne connais pas encore VB dc je suis sur que j'ai du loupé une tite étape. Vous voyez cmt maider ?

 

[Bruce68]

Re : Incrementer automatiquement et trier (sans liste)

Bonjour Seb34
Essai ce fichier joint
il recopie toutes les cellules pleines (dispersées) : Feuil1 colonne A dans la Feuil2 colonne A l'une derrire l'autre

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

Le problème c'est que je souhaite appliquer cette fonction a plusieurs colonne. exemple colonne A feuille 1 vers Colonne A feuille 2 ; Colonne B feuille 1 vers Colonne B feuille 2; etc

 

[Hervé]

Re : Incrementer automatiquement et trier (sans liste)

bonjour 🙂

une idée a travers ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim derligne As Integer

With Sheets("feuil2")
    derligne = .Cells(65536, Target.Column).End(xlUp).Row + 1
    .Cells(derligne, Target.Column) = Target
End With
End Sub

salut

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

Excellent c'est vraiment pas mal ! Néanmoins on ne peut pas choisir quelle colonne sont recopiées. non ?

Et surtout comment parametrer la plage de destination ? Exemple pour envoyer els info de colonne C feuil 1 vers colonne G de la feuil2

 

[Hervé]

Re : Incrementer automatiquement et trier (sans liste)

re

on peut tout choisir, mais il faudrait que tu sois plus précis dans ta demande.

salut

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

Et bien concrètement je souhaiterais que les données saisies en colonne P à partir de P9 Feuil 1 aille s'incrémenter (sur le meme modele que précédemment càd de façon cumulé sans cellule vide) dans la colonne A à partir de la cellule A4 dans la feuil2. Désolé si je ne m'exprime pas clairement 🙁

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

HELP !! J'essai de bidouiller mais je n'arrive pas à trouver la solution !!!!

 

[Hervé]

Re : Incrementer automatiquement et trier (sans liste)

re

a essayer :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim derligne As Integer

If Intersect(Target, Range("p9:p65536")) Is Nothing Then Exit Sub
With Sheets("feuil2")
    derligne = .Cells(65536, "A").End(xlUp).Row + 1
    .Cells(derligne, "A") = Target
End With
End Sub

salut

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

VOILA ! C'est tout à fait ça merci beaucoup !
Maintenant j'aimerais appliquer cela pour d'autres valeurs dans la meme page
Par exemple pour la colonne P comme tu viens de le faire mais également pour la colonne B. J'ai essayé ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim derligne As Integer
If Intersect(Target, Range("p9:p65536")) Is Nothing Then Exit Sub
With Sheets("feuil2")
    derligne = .Cells(65536, "A").End(xlUp).Row + 1
    .Cells(derligne, "A") = Target
End With
If Intersect(Target, Range("B9:B65536")) Is Nothing Then Exit Sub
With Sheets("feuil2")
    derligne = .Cells(65536, "B").End(xlUp).Row + 1
    .Cells(derligne, "B") = Target
End With
End Sub

Mais ca ne fonctionne pas

 

[seb34]

Re : Incrementer automatiquement et trier (sans liste)

Appliquer cette fonction a plusieurs colonne dans le meme document c'est ça en fait mon gros gros problème, je bloque dessus depuis des mois. Je suis mauvais, mais du coup ça bloque tout mon travail...🙁

 

[Hervé]

Re : Incrementer automatiquement et trier (sans liste)

re

il serait quand meme plus simple si nous disais quelles colonnes à traiter et ou elle doivent etre envoyées.

a essayer :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim colonnetarget As Byte
Dim colonnedestination As Byte
Dim derligne As Long

If Not Intersect(Target, Rows("1:9")) Is Nothing Then Exit Sub

colonnetarget = Target.Column 'on stock le numéro de colonne

Select Case colonnetarget 'suivant le numéro de colonne on affecte la variable colonnedestination
    Case 16:  'si la colonne est la p (numéro 16)
        colonnedestination = 1 'alors la colonne de destination sera la A (colonne 1)
    Case 2: 'si la colonne est la B (numéro 2)
        colonnedestination = 2 'alors la colonne de destination sera la b (colonne 2)
    'etc pour tes autres cas
    Case Else 'pour les cas généraux, donc ceux qui n'ont pas été traité auparavant
        Exit Sub 'on quitte la macro sans copier la valeur
End Select

With Sheets("feuil2")
    'on recherche le numéro de la premiere cellule vide de la colonne de destination
    derligne = .Cells(65536, colonnedestination).End(xlUp).Row + 1
    'on ecrit la valeur
    .Cells(derligne, colonnedestination) = Target
End With
End Sub

salut
🙂