Ecrire dans la premiere cellule vide

Salut a tous, quel est le code pour trouver la premiere cellule vide de la colonne A et y mettre le contenu d'une variable.

Bonsoir

A tester

Sub test()
Dim Colonne As Integer
Dim Mavaleur As Long

  Colonne = 10
  Mavaleur = 500

  If Cells(1, Colonne) = "" Then
    ' La cellule 1 est vide
    Cells(1, Colonne) = Mavaleur
  Else
    Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0) = Mavaleur
  End If
End Sub

Salut, cette fois ci, j'essai d'aider un ami, comme tu le fais si bien pour les autres!

Ta macro est complete, pourrais-ton faire en sorte que la cellule active soit celle ou l'on ecris la valeur, car je dois mettre la date dans la colonne suivante avec "offset".

Pour ce qui est de mon autre post, je t'ai envoye un peu plus d'info. J'ai regle le probleme en mettant la fonction sur la feuille que je sauvegarde, mais est-ce obligatoire d'avoir des macros dans les feuilles que j'enregistre? Donne moi juste quelques commentaire sur mon post que je t'ai envoye a ce sujet.

Bonjour

CAPUCIN a écrit :

Ta macro est complete, pourrais-ton faire en sorte que la cellule active soit celle ou l'on ecris la valeur, car je dois mettre la date dans la colonne suivante avec "offset".

Pas besoin que la cellule soit active, plus facile peut-être

A voir

Sub test()
Dim Colonne As Integer
Dim Mavaleur As Long

  Colonne = 10
  Mavaleur = 500

  If Cells(1, Colonne) = "" Then
    ' La cellule 1 est vide
   Cells(1, Colonne).Select
  Else
    Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select
  End If
  ActiveCell = Mavaleur
  ActiveCell.Offset(0, 1) = Date
End Sub

Merci Banzai, j'ai un tres bon professeur!

Je ferme ce post!

Bonne fin de soiree!

Bonjour à tous et merci d'avance de me lire

Voici mon petit soucis:

En colonne A: une succession de listes séparées par une ligne vide

A1 à A14: camion

A15: ligne vierge

A16 à A29: table

en colonne B sont associés des valeurs

Pour chaque liste: je veux effectuer la somme de la colonne B jusqu'à la ligne vide. et afficher le résultat de cette somme dans cette ligne vide, en colonne B.

par exemple: en B15, la somme de B1 jusqu'à la dernière cellule non vide, [/download/telecharger-34058667-internet-explorer-8-windows-vista ie] B14 !

en B30: la somme de B16 jusqu'à B29.

La longueur des listes va changer, d'où l'utilisation de macro et du calcul de la première cellule non vide.

Je joints mon fichier qui sera beaucoup plus explicite!!

merci encore!!

Bonsoir , peut-être pas obligé d'utiliser une macro, dans votre cas la fonction sous.total() à l'air adapté.

jetez un oeil sur le fichier joint

Bonsoir et merci pour la réponse!!

Cependant, je souhaite vraiment une macro, car c'est un fichier où j'ai déjà des macros donc je souhaite continuer.

Mes listes que vous avez vu dans mon fichier vont changer de longueur tous les jours

Peux tu m'aider à compléter la macro que j'ai débuté dans le fichier joint?

merci

Je peux aider oui, par contre l'idéal serait d'avoir le vrai fichier, où du moins une copie de l'onglet où seront les données car j'imagine que vous avez des entêtes et que cela ne commence pas forcément sur la ligne 1

Rebonjour,

Voici mon fichier avec les macros que j'utilise pour faire le tri entre les professions. Dans l'onglet 2 sont regroupés les lignes de mêmes professions.

L'onglet1 varie tous les jours, et donc la longueur des listes sur l'onglet2 aussi

Je voudrais calculer automatiquement la somme de tous les salaires pour chaque liste de profession (colonne H), et afficher cette somme dans la ligne vide en dessous chaque liste.

Merci et bonne soirée,

Cdlt,

Bon ben du coup vu que les objectifs ont changé en cours de route je laisse tombé