Décaler des lignes

N

Nicolas

Guest
Bonjour tout le monde

j'ai affecter une macro à une image qui m'envoie le contenu d'un tableau, dans un autre tableau mais à la suite des données déja présentes dans ce dernier.

Mon problème est que je n'arrive pas à envoyer les données à la suite de l'autre tableau.

Pouvez vous m'aidez ??

Je vous remercie

Nicolas
 
C

Creepy

Guest
Salut,

Tu cherches en faites à connaitre le dernière cellule remplie pour copier le texte après. voila la solution :

dim Dercell as integer.

1 - Dercell= feuil1. Range("A1").End(xlDown).Row
2 - Dercell= Dercell +1
3 - range("a" & Dercell).select

Puis tu copies les données et voila

Allez je vais me fendre de kkes explications :
Ligne 1 : SE positionne en A1 et va chercher la derniere ligne en A, avec du texte. Puis cette valeur eststockée dans la variable Dercell. (Par exemple si la derniere cellule est A6, on stock la valeur 6 dans dercell).

ligne 2 : J'ajoute +1 à dercell (dans notre exemple 6+1 =7)

ligne 3 : Je pointe sur la nouvelle cellule vide en A7 (puisque Dercell vaut 7 maintenant).

Voilou, lesexplications n'etaient peut être pas nécéssaire, mais ca aidera peut être kk1 d'autre !!

A++

Creepy
 
N

Nicolas

Guest
Par contre le programme m'indique une erreur suite à la ligne 1 des 3 lignes de programme du message de Creepy.
A quoi correspond feuill ?
Est ce feuill ou feuil1 ?
est ce le nom de ma feuille où la cellule est selectionnée ?

Merci d'avance

Nicolas
 
C

Creepy

Guest
Salut,

Feuil1 est le nom de la premiere feuille.

Si tu as renommer tes feuilles il faut le changer, moi C standard dans l'exemple. On est bien d'accord que ce n'est pas LL mais L1.

tu peux aussi faire sheets("nom de la feuille"). etc...

le dim C'est pour deplarer une variable
dim "nom de la variable" as integer.

Le nom de la variable doit ête explicite, et pas identique à une commande VBA comme : String, integer, etc...

Il y a plusieurs type de variable :
Integer = chiffre entre 65536 et -65536 je crois sans virgule
Rangge = plage
String = du Texte

etc..

Cf l'aide d'Excel pour toutes les possibilités.
 
T

Tonio

Guest
Bonjour à tous !!!!!
Je tente de saisir des données dans une inputbox, et je voudrais qu'a chaque utilisation de cette macro, ce soit la ligne suivante qui recoive les données, voila ce que ca donne :

Dim Name As String
Dim Dercell As Integer

Dercell = sheets("liste des sites").range("D272").End(xlDown).Row
Dercell = Dercell + 1
range("a" & Dercell).Select

Name = InputBox("Nom du nouveau site :")

ActiveCell.FormulaR1C1 = Name

End Sub

Cependant, erreur d'instruction 6 :je dépasse la capacité.

Merci à tous ceux qui peuvent m'aider
Bonne journée
 

Statistiques des forums

Discussions
312 779
Messages
2 092 045
Membres
105 167
dernier inscrit
JulJon2004