Mise à jour date automatiquement sauf ligne 1

Résolu/Fermé

Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 5 juin 2013 à 14:49
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 11 juin 2013 à 15:07

Bonjour,

Je rencontre un problème avec ce code qui affecte l'ensemble de mes lignes et donc par la même occasion ma ligne d'entête. Auriez vous une idée pour faire en sorte d'exclure la ligne 1 de ce traitement ?

Private Sub Worksheet_Change(ByVal sel As Range)
    Application.EnableEvents = False
    Cells(sel.Row, "A").Value = "jean.Pierre"
    Cells(sel.Row, "B").Value = "Controle"
    Cells(sel.Row, "C").Value = Date
    Application.EnableEvents = True
End Sub

Merci par avance

A voir également:

Mise à jour date automatiquement sauf ligne 1
Mise à jour pilote - Guide
Mise a jour airpods - Guide
Mise a jour windows 10 - Guide
Mise a jour xiaomi - Guide
Mise a jour chrome - Guide

3 réponses

Réponse 1 / 3

ergor Messages postés 149 Date d'inscription mercredi 23 janvier 2013 Statut Membre Dernière intervention 7 mai 2014 12
5 juin 2013 à 17:14

Bonjour,

Tu as un bon nombre de solutions :

Une boucle for.
"Vider" les cellules de la lignes 1
Créer une plage (http://www.excelabo.net/excel/plage_vba)
...

Je te laisse choisir ce que tu préfères

Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015
10 juin 2013 à 17:06

Merci Ergor,

Mais le lien ne fonctionne pas

Réponse 2 / 3

ergor Messages postés 149 Date d'inscription mercredi 23 janvier 2013 Statut Membre Dernière intervention 7 mai 2014 12
10 juin 2013 à 17:30

Voici le lien corriger (simplement en enlevant la parenthèse de fin) :

http://www.excelabo.net/excel/plage_vba

Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015
Modifié par Co_nexion le 10/06/2013 à 17:53

C'est vrai, j'ai pas bien fais attention...
J'essaie avec la première fonction en y rajoutant le for devant mais on me demande un "=" que je ne veux pas mettre car je ne sais pas quoi y accoler derrière. Je veux juste dire que cette fonction s'applique de la ligne A2 à la dernière ligne (comme suit)

For Range([A2], [AG65635].End(xlUp))

Réponse 3 / 3

ergor Messages postés 149 Date d'inscription mercredi 23 janvier 2013 Statut Membre Dernière intervention 7 mai 2014 12
Modifié par ergor le 11/06/2013 à 14:30

Oula,

Autant pour moi je me suis fourvoyé, j'avais mal compris ce que tu voulais faire.

Pour ce que tu veux faire c'est très simple un "if" suffit, comme ceci :

Private Sub Worksheet_Change(ByVal sel As Range)

    If sel.Row <> 1 Then
    
    
        Application.EnableEvents = False
        Cells(sel.Row, "A").Value = "jean.Pierre"
        Cells(sel.Row, "B").Value = "Controle"
        Cells(sel.Row, "C").Value = Date
        Application.EnableEvents = True
        
    
    End If

End Sub

Dis-moi si cela correspond à ce que tu cherchais.

Bonne journée
It's not a bug, it's a feature

Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015
11 juin 2013 à 15:07

C'est bien ça :)
J'avais essayé avec le même code mais en ne mettant que le > d'où le fait que ça ne marchait pas !

Merci

Discussions similaires

Pix

Est-ce risqué de forcer l'installation IOS d'un ancien IPAD ?

Discussions similaires

Newsletters