• Initiateur de la discussion Initiateur de la discussion ingel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ingel

XLDnaute Nouveau
Bonsoir à tous,

Je voudrai faire une recherche en VBA afin d'affecter la valeur d'une cellule sur autre feuille;
j'ai pu avancer avec ce petit bout de code :
Code:
Sub memoire()
Dim mem As Variant
For mem = 3 To ActiveWorkbook.Sheets.Count
If Sheets(mem).Name = Sheets(" Recap").Cells(mem, 1) Then
Sheets(mem).[K15].Value = Sheets(" Recap").Cells(mem, 2).Value
End If
 Next mem
 end Sub

Par contre j'ai un souci avec les ligne vides, ou quand il y a un décalage dans ma colonne, cela me renvoi rien alors que les valeurs existe bien dans ma table.

Quelqu'un pourrait m'aider svp

Merci
 
Re : Recherche en vba

Re ,

Voici la solution proposée :
Code:
Sub memoire()
Dim Cellule  As Range
Dim LigneFin As Long
LigneFin = Sheets(" Recap").Range("A" & Rows.Count).End(xlUp).Row
For Each Cellule In Sheets(" Recap").Range("A3:A" & LigneFin)
 If Cellule <> "" Then Sheets(Cellule.Value).[K15] = Cellule.Offset(0, 1).Value
Next
  
End Sub
 
Re : Recherche en vba

Bonjour ,

Donc suite au nouveau cahier des charges :

Code:
Sub memoire()
 Dim Cellule  As Range
 Dim LigneFin As Long
 LigneFin = Sheets(" Recap").Range("A" & Rows.Count).End(xlUp).Row
 For Each Cellule In Sheets(" Recap").Range("A3:A" & LigneFin)
  If Cellule <> "" Then
    On Error Resume Next
    Sheets(Cellule.Value).[K15] = Cellule.Offset(0, 1).Value
    If Err.Number = 9 Then
       ThisWorkbook.Worksheets.Add
       ActiveSheet.Name = Cellule.Value
       Sheets(Cellule.Value).[K15] = Cellule.Offset(0, 1).Value
       
    End If
    On Error GoTo 0
  End If
 Next
   
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
236
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
203
Réponses
4
Affichages
499
Réponses
2
Affichages
183
Réponses
3
Affichages
689
Retour