Si texte gras, copier ailleurs (débutant)
Résolu
Patrack33
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrack33 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Patrack33 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Gras copier coller
- Historique copier coller - Guide
- Ecrire en gras sur whatsapp - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
6 réponses
Bonjour,
A adapter
A adapter
Sub Test()
Dim dLig As Long
Dim i As Long
dLig = Range("B1").End(xlDown).Row
For i = 1 To dLig
If Range("B" & i).Font.Bold = True Then
Range("A" & i + 1).Value = Range("B" & i).Value
End If
Next i
End Sub
Bonjour ,
je viens de tester ta macro et le message d'erreur "execution '1004' : La méthode 'Range' de l'objet '_Global' a échoué " apparait.
à la ligne :
If Range("B" & i).Font.Bold = True Then
(je suis désolé de poser des questions idiotes , mais je suis vraiment néophyte)
je viens de tester ta macro et le message d'erreur "execution '1004' : La méthode 'Range' de l'objet '_Global' a échoué " apparait.
à la ligne :
If Range("B" & i).Font.Bold = True Then
(je suis désolé de poser des questions idiotes , mais je suis vraiment néophyte)
Bonjour,
Faire un test avec ça:
Chez moi ça fonctionne quand je suis sur la feuille active.
Idem pour la boucle, il faut mettre For i = (la première ligne à tester)
Si la cellule B1 est vide, la macro plante !!!
Faire un test avec ça:
Sub Test()
Dim dLig As Long
Dim i As Long
With Sheets(1) ' A adapter --- Mettre la ref de l'onglet qui doit être traité
dLig = .Range("B1").End(xlDown).Row
For i = 1 To dLig
If .Range("B" & i).Font.Bold = True Then
.Range("A" & i + 1).Value = .Range("B" & i).Value
End If
Next i
End With
End Sub
Chez moi ça fonctionne quand je suis sur la feuille active.
Idem pour la boucle, il faut mettre For i = (la première ligne à tester)
Si la cellule B1 est vide, la macro plante !!!
ça marche !
Merci Polux
sauf que sur mon fichier à traiter, il y a beaucoup de lignes ayant la case b vide et qu'effectivement dans ce cas la macro s'arrête à la 1ère ligne vide ...
Merci Polux
sauf que sur mon fichier à traiter, il y a beaucoup de lignes ayant la case b vide et qu'effectivement dans ce cas la macro s'arrête à la 1ère ligne vide ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question