Discussion :

[Sam001]

Bonjour à tous,

Etant un grand débutant un programmation vba, voici ce que j'essaye de faire :

Nous avons par exemple la colonne A vierge (toutes les cellules sont vides). D'une autre cellule (J1 par exemple), je transmet les données qui se trouvent dans une des cellules et cela renouvelable à chaque introduction d'une donnée ( boucle? ). J'ai essayé de travailler avec des boucles (do while) mais n'arrive pas à trouver la bonne trame. En gros, j'ai essayé d'introduire dans la boucle une condition qui est que lorsque j'ai une cellule vide dans ma colonne A, cela prend la donnée introduite dans la cellule de la colonne J et cela sans effacer les données déjà présentes dans la colonne A...
Je ne sais pas si je suis assez clair dans mes explications.
Je tiens à préciser que je suis grand débutant et que donc les fonctionnalités "poussées" me sont complètement étrangères.
Dans tout les cas, merci de votre aide.

Sam

[fring]

Bonjour,

En effet, ce n'est pas très clair,

lorsque j'ai une cellule vide dans ma colonne A

sur toute la colonne ? les 65535 lignes ?

cela prend la donnée introduite dans la cellule de la colonne J

quelle cellule ? sous quelle condition ? toujours la même cellule ?

Le plus simple serait de joindre un petit fichier avec un exemple de ce que tu as au départ et ce que tu souhaites obtenir et sous quelle condition. Un petit dessin vaut parfois mieux qu'une longue explication

[Sam001]

Oui pour la colonne A on peut considérer que cela va jusqu'à la fin.
Pour la cellule J(x), il n'y a pas de condition et c'est toujours la même cellule où l'on introduit les données. La cellule de la colonne J est donc choisie arbitrairement. La donnée qu'on va y introduire doit être injectée dans la première cellule de la colonne A et ainsi de suite sans en effacer les précédentes.

[Abed_H]

Bonsoir
voici un exemple simple d'utilisation d'une boucle pour parcourir toute les cellules de la colonne A.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Inject()
Dim i As Integer, cell As Range
For Each cell In Range("A2:" & Cells(Rows.Count, 1).End(xlUp).Address)
    If IsEmpty(cell.Value) Then
       cell.Value = Cells(i, 10).Value
      End If
       i = i + 1
 Next
End Sub

Bonne soirée

Abed_H

[fring]

Si j'ai bien compris, jette un oeil sur le fichier joint, cela devrait ressembler à ce que tu souhaites obtenir.
Dans cet exemple j'ai choisi la cellule J10 et à chaque fois que sa valeur sera modifiée elle ira s'inscrire dans la colonne A

EXEMPLE POUR TEST

[Sam001]

Bonjour,

Merci pour vos réponses et désolé du retard. Je vais tester tout cela

A bientot

Sam

Pour le fichier excell joint, lorsque je modifie la valeur et que je la valide il ne se passe rien dans la colonne A...

Sam

Edit : Excuse moi j'ai complètement oublié de créér une macro...Ca marche très bien un tout grand merci

Salut à tous,

Je voudrais solisciter votre aide à nouveau pour savoir comment faire une combobox qui va chercher les informations dans des cellules...

Merci d'avance

Sam