Résultats de la recherche

  1. K

    XL 2016 Créer et écrire dans fichier texte

    Bonsoir! Merci Dranreb pour ta réaction. Je n'ai pas pu adapter ta solution et me suis pencher vers une autre plus adaptative. Je copie les données que je veux utiliser dans une feuille qui me permet de créer le fichier texte et d'y inscrire les données. Juste que là et avec un peu d'aide, pas...
  2. K

    XL 2016 Créer et écrire dans fichier texte

    Bonsoir à Tous! Je suis confronté à un problème de création de fichier txt, j'ai parcouru pleins de forums à la recherche de solutions sans trouver ce qui correspond à ma préoccupation qui est la suivante: j'aimerai créer et écrire dans un fichier texte sous la forme (fichier texte joint) à...
  3. K

    XL 2016 écrire dans première cellule vide

    Super!!!!!! o_Oo_O ça fonctionne! Merci à vous qui avez apporté vos contributions au plus que importantes à ce fil. merci particulier à Staple 1600 pour son temps accordé et sa patience. Private Sub btnSupp_Click() Dim zone As Range, c As Range With Sheets("Feuil1") 'on set la zone de...
  4. K

    XL 2016 écrire dans première cellule vide

    Ah oui tu as raison. vous vous y êtes mis tous en apportant des éclaircis. Non:(!!! elle supprime toute la ligne et même les formules contenues dans certaines cellules ( A, B, R). Je voudrais, tout en laissant les formules dans les cellules qui en contiennent, .ClearContents uniquement la...
  5. K

    XL 2016 écrire dans première cellule vide

    trouvez ci-joint une fichier exemple afin de trouver une solution à mon problème. avec l'aide de Staple 1600 (merci encore) je parviens à ajouter des infos dans le première ligne vide trouvée. Ce que j'aimerai faire : après choix dans combobox (userform "ModifEmploy"), supprimer les infos de...
  6. K

    XL 2016 écrire dans première cellule vide

    Merci encore une fois de plus Staple 1600. Je teste et reviens vers vous
  7. K

    XL 2016 écrire dans première cellule vide

    Bonjour Staple 1600 dans mon message #6, j'ai fais mention de ce que ta solution fonctionne. j'ai adapté ta proposition à mon fichier. Merci encore
  8. K

    XL 2016 écrire dans première cellule vide

    Désolé, j'étais hors réseau
  9. K

    XL 2016 écrire dans première cellule vide

    je profite de ce fil pour demander comment supprimer une plage définie. dans notre exemple, nous avons la plage ("A:C") tout en sachant que les autres cellules contiennent des infos à ne pas supprimer
  10. K

    XL 2016 écrire dans première cellule vide

    Merciiii:);) cette solution fonctionne Dim Ligne as Long Ligne = Columns("D").SpecialCells(xlCellTypeBlanks).Item(1).Row Cells(Ligne, 3) = cbxCivil.Value Cells(Ligne, 4) = txtNom.Value Cells(Ligne, 5) = cbxSex.Value ...
  11. K

    XL 2016 écrire dans première cellule vide

    Bonjour! cette solution ne fonctionne pas, j'arrive à écrire sur la première ligne vide mais lors du prochain enregistrement, les données sont réécrites sur la même ligne que précédemment.
  12. K

    XL 2016 écrire dans première cellule vide

    Bonsoir!!! J'ai un tableau dans lequel je stocke des données et il m'arrive de supprimer certaines et du coup il ya des lignes vides qui restent entre des lignes renseignées. La question est comment faire pour enregistrer (via userform) dans la première ligne (ou cellule) vide trouvée? J'ai...
  13. K

    XL 2016 Supprimer ligne par bouton

    je Viens de tester la solution de JBARBE et c'est un début de solution pour moi :) mais elle supprime toute la ligne entière et donc même les infos qui me servent de liste déroulante dans le formulaire. Ce que j'aimerai est la prise en compte de la plage en jaune ("C:V"). je continue ma...
  14. K

    XL 2016 Supprimer ligne par bouton

    Merci JBARBE! Je teste ça et reviens vers toi. Bonjour à toutes et tous...
  15. K

    XL 2016 Supprimer ligne par bouton

    Bonsoir à tous! Le fichier joint me permet de créer (ajouter) des données dans la feuille et de les modifier par userform. code: Private Sub btnOK_Click() Dim Ligne As Integer 'NomFeuille If Application.WorksheetFunction.CountA(Range("D5:D54")) >= 50 Then MsgBox "Limite atteinte!"...
  16. K

    XL 2016 Remplir textbox avec RechercheV Equiv après choix dans deux combobox

    Bonjour à tous et désolé pour ma réponse (je dirai) tardive. J'étais hors réseau. Je viens de tester et ça fonctionne :):) Merci @BOISGONTIER et @Dranreb pour les retours.
  17. K

    XL 2016 Remplir textbox avec RechercheV Equiv après choix dans deux combobox

    Bonjour à tous! J'aimerai s'il vous plait, effectuer une sorte de RechecheV Equiv pour renseigner une TextBox après choix dans deux ComboBox. Faire en VB ce que le code ci-dessous fait dans les feuilles =SIERREUR(RECHERCHEV(Feuil1!C14;Feuil1!A2:G11;EQUIV(Feuil1!C16;Feuil1!B1:G1)+1;0);"")...