Copier des valeurs de cellules dans un tableau

Question

Je maitrise bien excel, mais je suis novice sous VBA. sous un onglet feuil1, j'ai des cellules nommées, les une en dessous des autres : entree_nom, entree_prenom.... via une macro, je cherche la première ligne vide dans un tableau nommé, qui est sur un autre onglet feuil2 j'ai noté mes problème après le code ;-) voila mon code : Sub Nouvel_Habitant() 'macro qui permet d'enregistrer un nouvel habitant de Marlioz dans le listing ' 'Nouvel_Habitant Macro Sheets("listing").Select 'selection la feuille listing Range("nom").Select 'selectionne la case nom(A4) Do While IsEmpty(ActiveCell) = False ActiveCell.Offset(1, 0).Select 'cherche la 1ere cellule vide en colonne A Loop ActiveCell.Value = entree_nom ActiveCell.Offset(0, 1) = entree_prenom ActiveCell.Offset(0, 1) = entree_numéro ActiveCell.Offset(0, 1) = entree_indicatif ActiveCell.Offset(0, 1) = nom_voie ActiveCell.Offset(0, 1) = portable_1 ActiveCell.Offset(0, 1) = portable_2 ActiveCell.Offset(0, 1) = fixe ActiveCell.Offset(0, 1) = Email MsgBox "nouvel habitant enregistré", vbOKOnly, "INFO" Sheets("Nouvelle Entrée").Select Range("C3:C14").ClearContents 'efface les infos de nouvelle entrée Range("C3").Select End Sub je n'ai pas d'erreurs sauf que rien n'est copié dans le tableau quand je positionne le curseur sur entree_nom dans module VBA, ca informe =&gt; entree_nom = vide alors que la cellule n'est pas vide où est mon erreur? merci de vos retours VL...

AlgoPlus · Answer

Entree_nom, entree_prenom, entree_numéro .... sont des variables qui ne sont pas initialisées ... Avec ActiveCell.Value = entree_nom (et les lignes suivantes) on "copie" dans la cellule active le contenu de la variable entree_nom . et comme elle est vide ... A+...