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
- Tableau ascii - Guide
- Comment faire un tableau - Guide
- Libre office gratuit - Télécharger - Suite bureautique
3 réponses
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
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
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
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