Ligne et celulle

[max.g]

Bonjour,

Y'a t'il un code VBA pour dire que quand A2 est remplit, il faut allez à la cellule suivante?

En gros : Si A2 est remplis aller à A3 etc...
Cordialement

 

[pierrejean]

Re : Ligne et celulle

Bonjour

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" and Target.value <>"" Then Target.Offset(1, 0).Select
End Sub

Ou peut-etre

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" Then
     If Target.Value <> "" Then
       Target.Offset(1, 0).Select
     Else
        Target.Select
     End If
   End If
End Sub

 

[DoubleZero]

Re : Ligne et celulle

Bonjour, max.g, le Forum,



Quel est l'objectif de la demande ?

Si a2 est vide, faut-il empêcher la sélection d'une autre cellule ?

Si a2 n'est pas vide, la valeur doit-elle être protégé ?

Que signifie "etc..." ?

A bientôt

P. S. : Bonjour + bises, pierrejean

 

[max.g]

Re : Ligne et celulle

Bonjour,

Tous d'abord merci de me répondre.

Il me dit que la méthode Select de la classe range à échoué

Cordialement

 

[max.g]

Re : Ligne et celulle

En gros, j'ai un tableau de récap de donné :
Colonne 1 : nom des matériaux
Colonne 2 : Famille de matériaux
Colonne 3 : Coût

Mon tableau se remplis automatiquement en fonction des données que je rentre dans mon userform, et je veux simplement que quand je rentre un nom de matériau par exemple du liège et que je rentre un deuxième nom de matériau par exemple béton, et bien que béton sois mis en dessous de liège tous simplement. (Actuellement si je rentre un deuxième nom de matériau cela m'efface le premier)

Cordialement

 

[gosselien]

Re : Ligne et celulle

Bonjour à tous

le fichier serait le bienvenu, ton explication semble incomplète ou, pour mon cerveau embrumé, pas claire

P.

 

[pierrejean]

Re : Ligne et celulle

Re

Dans ce cas il faut définir la cellule comme: Cells(rows.count,1).end(xlup).offset(1,0)
NB : a condition qu'il n'y ait rien en dessous du tableau dans la colonne A . Si c'est le cas un fichier exemple s'impose

edit: salut gosselien

 

[max.g]

Re : Ligne et celulle

voici mon fichier, lorsque je crée un nouvelle feuille cela me remplis le tableau " recherche de matériau" et je veux que ces données se range l'un en dessous de l'autre automatiquement et non efface la précédente.

Cordialement merci par avance.

Max

 

[gosselien]

Re : Ligne et celulle

pfffff

pourquoi une telle présentation avec zoom à 10% ??????

tu peux mieux faire non ?

perso, je ne saurais pas travailler avec un tel fichier, sorry

 

[max.g]

Re : Ligne et celulle

J'ai commencer le VBA il y a 2 semaines, et je n'ai pas encore pris le temps de faire une belle mise en page, je veux surtout que les fonctions que je désire fonctionne ^^

Cordialement

 

[max.g]

Re : Ligne et celulle

Merci quand même de m'avoir répondu bonne journée.