Macro -erreur 1004

Question

Je suis désespéré. J'utilise que très rarement les macros et j'ai très peu de connaissance. Je cherche à copier mon formulaire dans ma liste pour quand j'ajoute un nom et idéalement j'aurais aussi voulu pouvoir inscrire un nom et les infos et pouvoir également supprimer la ligne dans la liste mais je crois que c'est trop pousser. Dans ma macro, je pars de mon formulaire pour aller dans ma liste, j'insère une ligne à la ligne 2 et ensuite copie/coller chacune des cellules de mon formulaire dans ma liste. Quand je joue la macro, il me dit toujours erreur mais ajoute quand même ma ligne dans la liste. Pourquoi j'ai un erreur alors… je voudrais faire disparaître le message d,erreur. Merci à l'avance !!! chacha...

Toukoul · Accepted Answer

Supprimer une ligne directement dans la liste des patients Cdt...

Toukoul · Answer

Rang("A1") select ' Bon ActiveCell.Offset(-8, 0).Select ' Bon décalages depuis la cellule active Explications données par RAJA dans ce forum : ( Activate ou Select)? Ces 2 méthodes n'ont pas la même finalité. Par exemple, pour sélectionner une cellule ou une plage de cellules, on utilise la méthode Select. Mais, pour activer une seule cellule ou feuille ou classeur, on utilise la méthode Activate. Tu ne peux pas par exemple utiliser la méthode activate pour activer une plage de cellules. Quand tu sélectionnes une plage de cellules, une cellule est activée qui du coup devient cellule active (activecell). Souvent la méthode activate intervient ou elle est déjà effective avant la méthode select. Par exemple, une feuille doit être activée ou est déjà active avant que tu n'utilises la méthode select. Donc, ce n'est une question d'éviter l'une ou l'autre méthode, cela dépend uniquement ce que tu veux faire. Ceci dit tu n’es pas toujours obligé d'utiliser la méthode select pour effectuer un certain nombre de choses. Tu peux par exemple faire référence à une plage de cellules sans les sélectionner auparavant. Cdt Toukoul...

Toukoul · Answer

Voici une procédure qui fait votre demande,sans aucun contrôle des saisies Cdt...

Toukoul · Answer

Chacha,

pourriez vous m'expliquer le but de ce rajout de colonne,

n'oubliez pas que vous pouvez supprimer des lignes, donc le N° qui lui serait associé!

Comme deux clients ne doivent pas porter le même N° il faudra gérer ces N° qui seront rapidement trop nombreux.

Le N° de dossier ne pourrait-il pas contenir cette information?

merci

Toukoul · Answer

Voila un fichier qui cumule toutes vos demandes Cdt Toukoul...

Andre13 · Answer

Merci à Toukoul ci joint avec possibilité d'effacer si cellule C8 est vide avec un message Msgbox 'Vide!' puis, se place directement sur la cellule C8 une deuxième demande en message (Msgbox) au cas où! si l'on souhaite ajouter les données saisies sur l'autre feuille du classeur (annuler ou ok) @tester @améliorer Sub RajouterPatientLign6() Dim DerLig As Long Dim X As Long If Sheets("Formulaire").Range("c8").Value = "" Then MsgBox "Champ Nom du patient est vide!" Range("c8").Select Else With Sheets("Formulaire") If MsgBox("Etes-vous certain(e) de vouloir supprimer le contenu du tableau ?", vbYesNo, "Demande de confirmation") = vbYes Then Range("C8,e8,c12,e12,c16").ClearContents MsgBox "Effacé !" Else 'Stop Application.ScreenUpdating = False Sheet2.Select Rows("6:6").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove With Sheet1 Sheet2.Range("b6").Value = .Range("C8").Value Sheet2.Range("c6").Value = .Range("E8").Value Sheet2.Range("d6").Value = .Range("C12").Value Sheet2.Range("e6").Value = .Range("E12").Value Sheet2.Range("f6").Value = .Range("C16").Value End With With ActiveWorkbook.Worksheets("Listepatients").ListObjects("Table2").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("G2").Select DerLig = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row For X = 6 To DerLig Sheet2.Cells(X, 1).Value = X - 5 Next X Application.ScreenUpdating = True End If End With End If End Sub ici pour les boîtes de dialogue (MsgBox) au cas ou : https://www.excel-pratique.com/fr/vba/boites_de_dialogue crdlt, André...