VBA pour suppression et modification de ligne
#1
Aspirant XLPages

Inscription: 07/03/2009

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 20-08-2011 10h30
Bonjour à tous.

Je voudrais d'abord remercier les personnes bénévoles qui aident les novices en excel et VBA comme moi et qui m'apprennent beaucoup sur ce merveilleux outil de travail.

Je fais suite à mon post précédent pour le même projet mais pour une problématique différente.

Je souhaites réaliser à l'aide de boutons (2 macros):

1 - rechercher dans ma base de donnée une ligne contenant une valeur et la modifier

zone de recherche = bdd ou =Index!$C$23:$I$989
Critère de recherche = C5

=> remplacer la ligne recherché dans la bdd par C5:I5

2 - Supprimer dans ma base de donnée une ligne contenant une valeur

zone de recherche = bdd ou =Index!$C$23:$I$989
Critère de recherche = C5

=> Supprimer la ligne entière

D'avance je vous remercie de votre aide.
Pièce jointe:
zip Code Employ.zip   [ Taille: 31.91 Ko - Téléchargements: 741 ]
Hors Ligne
Rapport   Haut 

Re: VBA pour suppression et modification de ligne
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 20-08-2011 15h22
Bonjour mishka,

Tu trouveras ton fichier joint avec un essai de code pour la recherche, modification, création, suppression.
J'ai toujours utilisé le même principe donc je n'ai mis de commentaires que sur un code.

Vois si cela peut t'aider et à bientôt,

mth


Pièce jointe:
zip Code Employ.zip   [ Taille: 47.13 Ko - Téléchargements: 2227 ]
Hors Ligne
Rapport   Haut 

Re: VBA pour suppression et modification de ligne
#3
Aspirant XLPages

Inscription: 07/03/2009

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 20-08-2011 16h05
Bonjour MTH.

Merci beaucoup, c'est plus que ce que j'espérais mais voilà j'ai un souci lorsque je saisi un code pour la recherche, création ou modification, Excel me demande d'ôter la protection de la feuille.

J'ai donc ôté la protection et cela fonctionne parfaitement.
Souhaitant donner l'accès à l'écriture des cellules C5 à I5 uniquement, j'ai donc déverrouiller ces cellules et reprotéger ma feuille. Malheureusement, il semblerait qu'excel re protège automatiquement ces cellules également.

J'ai cherché dans le code s'il existait une protection automatique quelconque et rien...

D'autre part, je souhaiterais conserver la liste déroulante (vente, encaissement) en I5 qui permet d'avoir une base de donnée avec les mêmes profils mais lorsque j'enregistre mon collaborateur la liste déroulante de ma cellule disparait.

Peux tu m'éclairer??

Merci encore.


Hors Ligne
Rapport   Haut 

Re: VBA pour suppression et modification de ligne
#4
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 20-08-2011 18h44
re

Exact, c'est le code du bouton "Recherche" qu'il faut modifier, mea culpa ...
Peux-tu essayer ceci à la place ? :

Sub recherche()
Dim lig As Long, x As Range
Dim xad As String

With Sheets("Index")
    'nettoie la ligne 5
    .Range("E5:I5").ClearContents
    ' Si C5 est vide on sort sans rien faire
    If .Range("C5") = "" Then Exit Sub

    ' Calcul de la dernière ligne remplie de la base
    lig = .Cells(Rows.Count, 3).End(xlUp).Row

    'recherche la valeur de C5 dans la 1ère colonne de la base
    Set x = .Range("C14:C" & lig).Find(Range("C5"), , xlValues, xlWhole, , , False)
    'Si trouvé
    If Not x Is Nothing Then
        ' on copie la ligne trouvée sur la ligne 5 (copie des valeurs seulement)
         xad = x.Row
        .Range("C" & xad & ":I" & xad).Copy
        .Range("C5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
        'Vide le presse papier
        Application.CutCopyMode = False

    Else
        'si pas trouvé:
        MsgBox "ce code n'existe pas vous pouvez le créer"
    End If
End With
End Sub


Bonne soirée,

mth
Hors Ligne
Rapport   Haut 

Re: VBA pour suppression et modification de ligne
#5
Aspirant XLPages

Inscription: 07/03/2009

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-08-2011 17h14
Merci encore MTH, c'est juste parfait!!

Je clos le sujet.
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes