Re : Vba supprimer caractere cellule
Je ne parviens vraiment pas à insérer le code a mon bouton "mise a jour tableau" de l'onglet portefeuille livrable....
Lors du clic sa ne fait que de "buger"...
a quel moment je dois insérer ton code au niveau du code deja existant :
Sub MAJ()
Dim i As Integer
Dim valeur_recherchee As String
'si la valeur recherchée n'est pas trouvée => plantage
'supprime plantage et passe a l'instruction suivante
On Error Resume Next
With Sheets(1)
'Suppression de ligne dans "PORTEFEUILLE LIVRABLE" si "N° CAR" n'existe pas dans "Fichier source de MAJ"
For i = .Range("N" & Rows.Count).End(xlUp).Row To 2 Step -1
If Application.CountIf(Sheets(2).Columns("L"), .Range("N" & i).Value) = 0 Then
.Range("N" & i).EntireRow.Delete
End If
Next i
End With
For i = 2 To Sheets(2).Range("L65536").End(xlUp).Row
valeur_recherchee = Sheets(2).Range("L" & i)
With Sheets(1)
ligne = .Columns("N").Find(what:=valeur_recherchee, LookIn:=xlValues, lookAt:=xlWhole).Row
If ligne <> 0 Then
.Range("O" & ligne) = Sheets(2).Range("K" & i)
.Range("Q" & ligne) = Sheets(2).Range("N" & i)
.Range("R" & ligne) = Sheets(2).Range("O" & i)
.Range("H" & ligne) = Sheets(2).Range("AK" & i)
ligne = 0
End If
End With
Next
On Error GoTo 0
End Sub
Désolé du dérangement mais je suis novice dans le domaine...