J'ai des valeurs dans les cases "A2:F2"
Sur plusieurs lignes.
Je souhaiterais par l'action d'un bouton "RESET"
effacer tous le contenu de ses cellules en d'autres termes
rechercher la 1er ligne vide et effacer en ne laissant que
les ent=EAte de colonne en "A1:F1"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J
Bonjour crole voici le fichier avec bouton à cette adresse
http://cjoint.com/?fhaN17kEhE
et le code Bon week end J@@
Sub effaceColAaFsaufLig1() premL& = 2: derL& = 65000 Range(Cells(premL, 1), Cells(derL, 6)).ClearContents End Sub
J'ai des valeurs dans les cases "A2:F2" Sur plusieurs lignes. Je souhaiterais par l'action d'un bouton "RESET" effacer tous le contenu de ses cellules en d'autres termes rechercher la 1er ligne vide et effacer en ne laissant que les entête de colonne en "A1:F1"
Bonjour crole
voici le fichier avec bouton à cette adresse
http://cjoint.com/?fhaN17kEhE
et le code
Bon week end
J@@
Sub effaceColAaFsaufLig1()
premL& = 2: derL& = 65000
Range(Cells(premL, 1), Cells(derL, 6)).ClearContents
End Sub
J'ai des valeurs dans les cases "A2:F2"
Sur plusieurs lignes.
Je souhaiterais par l'action d'un bouton "RESET"
effacer tous le contenu de ses cellules en d'autres termes
rechercher la 1er ligne vide et effacer en ne laissant que
les entête de colonne en "A1:F1"
Bonjour crole voici le fichier avec bouton à cette adresse
http://cjoint.com/?fhaN17kEhE
et le code Bon week end J@@
Sub effaceColAaFsaufLig1() premL& = 2: derL& = 65000 Range(Cells(premL, 1), Cells(derL, 6)).ClearContents End Sub
J'ai des valeurs dans les cases "A2:F2" Sur plusieurs lignes. Je souhaiterais par l'action d'un bouton "RESET" effacer tous le contenu de ses cellules en d'autres termes rechercher la 1er ligne vide et effacer en ne laissant que les entête de colonne en "A1:F1"
Bruno ALEMANNO
Bonjour, Merci pour la réponse Cordialement Crole
"J@@" a écrit dans le message de news: %23v%
Bonjour crole voici le fichier avec bouton à cette adresse
http://cjoint.com/?fhaN17kEhE
et le code Bon week end J@@
Sub effaceColAaFsaufLig1() premL& = 2: derL& = 65000 Range(Cells(premL, 1), Cells(derL, 6)).ClearContents End Sub
J'ai des valeurs dans les cases "A2:F2" Sur plusieurs lignes. Je souhaiterais par l'action d'un bouton "RESET" effacer tous le contenu de ses cellules en d'autres termes rechercher la 1er ligne vide et effacer en ne laissant que les entête de colonne en "A1:F1"
Bonjour,
Merci pour la réponse
Cordialement
Crole
"J@@" <jipivert@-ifrance.com> a écrit dans le message de news:
%23v%23WE5VcGHA.1276@TK2MSFTNGP03.phx.gbl...
Bonjour crole
voici le fichier avec bouton à cette adresse
http://cjoint.com/?fhaN17kEhE
et le code
Bon week end
J@@
Sub effaceColAaFsaufLig1()
premL& = 2: derL& = 65000
Range(Cells(premL, 1), Cells(derL, 6)).ClearContents
End Sub
J'ai des valeurs dans les cases "A2:F2"
Sur plusieurs lignes.
Je souhaiterais par l'action d'un bouton "RESET"
effacer tous le contenu de ses cellules en d'autres termes
rechercher la 1er ligne vide et effacer en ne laissant que
les entête de colonne en "A1:F1"
Bonjour crole voici le fichier avec bouton à cette adresse
http://cjoint.com/?fhaN17kEhE
et le code Bon week end J@@
Sub effaceColAaFsaufLig1() premL& = 2: derL& = 65000 Range(Cells(premL, 1), Cells(derL, 6)).ClearContents End Sub
J'ai des valeurs dans les cases "A2:F2" Sur plusieurs lignes. Je souhaiterais par l'action d'un bouton "RESET" effacer tous le contenu de ses cellules en d'autres termes rechercher la 1er ligne vide et effacer en ne laissant que les entête de colonne en "A1:F1"
