Discussion :

[xezi536]

Bonjour à tous,

J'aurais besoin d'un petit coup de main.


Voila je souhaiterais remplir un tableau de plusieur ligne sans remplacer les valeurs.

Exemple :

Si ma cellule en A1 est vide, ecrire en A1
Si ma cellule en A1 est non vide ecrire en B2
Si mes cellules en A1 et B2 sont non vide, ecrire en B3 et ainsi de suite.

J'espere avoir été assez claire... merci d'avance

Cordialement

[Menhir]

Voila je souhaiterais remplir un tableau de plusieur ligne sans remplacer les valeurs.

Tu veux le remplir avec quoi ?

Si ma cellule en A1 est vide, ecrire en A1
Si ma cellule en A1 est non vide ecrire en B2
Si mes cellules en A1 et B2 sont non vide, ecrire en B3 et ainsi de suite.

J'espere avoir été assez claire...

Euh... non.
A1 > B2 > B3, ça ressemble au déplacement d'un cavalier aux échec mais je ne pense pas que ce soit cette logique que tu suis.
Je pense donc qu'il doit y avoir une erreur dans ta suite.
S'il n'y a pas d'erreur, explique plus clairement la logique d'enchainement des cellules.

[Louax]

Bonjour

En VBA il vous faudra faire une boucle simple en admettant que votre tableau est 4 colonnes

Code :

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

1
2
3
4
for a=1 to 4
if cells(1,a).value="" then
'exemple cells(1,a).value="Merci"
next a

L'application For Next est la boucle, IF Then est la condition, cells est la cellule(numéro de ligne, numéro de colonne)

Et pour un tableau de 4 colonnes mais 10 lignes il faudra faire deux boucles

Soyez plus précis dans la forme de votre tableau car des formule existe pour déterminer quelle cellules sont vides

[Menhir]

Code :

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

1
2
for a=1 to 4
   if cells(1,a).value="" then

Je ne vois pas trop comment ce code pourrait scruter B2 et B3.

[xezi536]

Merci pour vos reponses.

Enfaite j'ai un Userform qui a chaque ouverture doit me donner un numero et je voudrais que ce numero soit (apres validation) inscrit dans un tableau, les un en dessous des autres.

Est-ce un peu plus claire ?


Cordialement

[unparia]

Bonjour
Ta question, telle qu'exprimée dans ton premier message, n'a de sens que si tu ajoutes une valeur tant en colonne A qu'en colonne B.
Et une des solutions possibles est alors (exemple) :

Code :

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

1
2
3
4
5
6
7
Dim dercel As Range
Set dercel = Range("A" & Rows.Count).End(xlUp)
If Not (dercel.Address = Range("A1").Address And Range("A1").Value = "") Then
  dercel.Offset(1, 0).Value = "x"
  Set dercel = dercel.Offset(1, 1)
End If
dercel.Value = "a"

[xezi536]

C'est exactement ça ! Merci beaucoup !

Pourriez-vous expliquer le code SVP ?

Cordialment