Erreur sur adaption de fichier forum

[oxygene]

Bonjour

Voici une adaptation que j'ai fait à partir d'un fichier
que j'ai trouvé sur ce forum. mais il y a un petit Hic.

J'ai beau comparer les deux codes je vois pas l'erreur que j'ai
pu faire.

l'erreur se produit quand les cellules A7 à W25 sont vides au départ.
Le userform fonctionne si j'ajoute manuellement une date sur la première
ligne.

Quand j'efface par la fonction reset du userform et si je clique sur "non"
pour effacer les checkbox, j'efface bien les checkbox plus les cellules de A7 à W25
alors que je n'ai pas toucher au code.

@+
Oxygene37

Ps : a quoi sert Range ("b1").select je connais la fonction mais quel est la fonctionnalité dans ce code

 

[@+Thierry]

Salut Oxygene et les zami(e)s

Je reconnais ce truc !! mais tu as une beta-test sur le forum

Tu as le version finie et commentée dans la partie Cours Excel à Télécharger

Pour ton problème de date sur la première ligne c'est à cause de la cellule fusionnée en A5/A6 et cette ligne de code :

Ligne = Sheets("Feuil1").Range("A25").End(xlUp).Row + 1

soluce = Vire la fusion en A5/A6 et écrit "Date" en A6 (sinon faut changer un peu le code...)

Pour ton problème Reset supprime cette ligne : (à la fin du code, juste avant End Sub)
Range("A7:W25").ClearContents

(cà c'était un oubli de ma part, une ligne de trop !!)

Voilà le service après vente !!! lol
Bonne Nuit
@+Thierry

 

[oxygene]

Bonjour

Merci, je me disais bien que ca devait être quelques choses dans ce style là.

Sinon si on veut poussuivre dans l'exemple quel code pourrait éviter le problème de la fusion des cellules de la première colonne

@+
Oxygene37

 

[@+Thierry]

Bonjour Oxigène

Sans faire de test car je suis assez rapidos ici, je pense qu'avec ceci on devrait y arriver avec un condition au lieu de Ligne = Sheets... directement essaies ce IF :

If Sheets("Feuil1").Range("A7") = "" Then
Ligne = 7
Else
Ligne = Sheets("Feuil1").Range("A25").End(xlUp).Row + 1
End If

Bonne Soirée
@+Thierry