Copier valeur cellule vers dernière ligne libre d'un tableau
Résolu/Fermé
juer31
Messages postés
107
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
25 mars 2024
-
19 janv. 2016 à 15:03
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 19 janv. 2016 à 19:46
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 19 janv. 2016 à 19:46
A voir également:
- Copier valeur cellule vers dernière ligne libre d'un tableau
- Tableau croisé dynamique - Guide
- Libre office gratuit - Télécharger - Suite bureautique
- Aller à la ligne dans une cellule excel - Guide
- LibreOffice PC : installer la suite bureautique gratuite - Guide
- Tableau ascii - Guide
3 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
19 janv. 2016 à 17:54
19 janv. 2016 à 17:54
Bonjour
Un début à compléter
http://www.cjoint.com/c/FAtq2rsy7XI
Cdlmnt
Un début à compléter
http://www.cjoint.com/c/FAtq2rsy7XI
Cdlmnt
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 19/01/2016 à 18:37
Modifié par ccm81 le 19/01/2016 à 18:37
De rien,
Si j'essai d'ajouter un ligne "description" ça ne marche pas!
difficile d'interpréter !
Essaies d'ajouter la variable description à la liste des variables
Public Sub OK()
Dim client As String, contact As String, liFH As Long, description as string
Cdlmnt
Si j'essai d'ajouter un ligne "description" ça ne marche pas!
difficile d'interpréter !
Essaies d'ajouter la variable description à la liste des variables
Public Sub OK()
Dim client As String, contact As String, liFH As Long, description as string
Cdlmnt
juer31
Messages postés
107
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
25 mars 2024
6
19 janv. 2016 à 19:46
19 janv. 2016 à 19:46
Merci bcp!
19 janv. 2016 à 18:29
J'utilise excel 2013
Option Explicit
' configuration feuille Calcul
Public Const FC = "CALCUL"
Public Const celclient = "C6"
Public Const celcontact = "E6"
Public Const celdescription = "C9"
' configuration feuille historique
Public Const FH = "HISTORIQUE É"
Public Const coclient = "D"
Public Const cocontact = "I"
Public Const codescription = "E"
Public Const lideb = 12
Public Sub OK()
Dim client As String, contact As String, liFH As Long
With Sheets(FC)
client = .Range(celclient).Cells(1, 1).Value
Description = .Range(celdescription).Cells(1, 1).Value
contact = .Range(celcontact).Cells(1, 1).Value
' etc ....
.Range(celclient).Cells(1, 1).Value = ""
.Range(celcontact).Cells(1, 1).Value = ""
End With
With Sheets(FH)
liFH = .Range(coclient & Rows.Count).End(xlUp).Row + 1
If liFH <= lideb Then liFH = lideb + 1
.Range(coclient & liFH).Value = client
.Range(codescription & liFH).Value = Description
.Range(cocontact & liFH).Value = contact
' etc ...
End With
End Sub