Copier valeur cellule vers dernière ligne libre d'un tableau
Résolu/Fermé
juer31
Messages postés
109
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
4 octobre 2024
-
19 janv. 2016 à 15:03
juer31 Messages postés 109 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 4 octobre 2024 - 19 janv. 2016 à 19:46
juer31 Messages postés 109 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 4 octobre 2024 - 19 janv. 2016 à 19:46
A voir également:
- Copier valeur cellule vers dernière ligne libre d'un tableau
- Tableau croisé dynamique - Guide
- Aller à la ligne dans une cellule excel - Guide
- Code ascii tableau - Guide
- Comment faire un tableau - Guide
- Libre office gratuit - Guide
3 réponses
ccm81
Messages postés
10899
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
25 octobre 2024
2 422
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
10899
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
25 octobre 2024
2 422
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
109
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
4 octobre 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