2017-06-15 1 views
0

J'ai un tableau dans Excel. 6 cellules en face, 4 en bas. Ce qui sera utilisé pour entrer les scores d'un quiz.Double valeur dans la cellule excel si un "*" est présent

Existe-t-il un moyen de saisir un "*" (astérisque) à côté du score dans la cellule et d'exceler automatiquement la valeur, en supprimant le "*"?

+0

Pas avec le formatage conditionnel, seulement avec VBA. –

+0

Vous pouvez également le faire dans une cellule différente avec des formules, mais pour le faire au moment de la modification, cela ne peut se faire qu'avec vba dans un événement Worksheet_Change. –

+0

Une approche différente pourrait être de remplir une seconde grille avec '1's autres que les positions où des astérisques seraient appliqués (où' '' '' '' '' '' 'à la place) puis Coller Spécial ... la deuxième grille sur la première, avec Opération Multiplier. – pnuts

Répondre

0

Essayez ce code VBA simple. Modifiez-le selon vos besoins,

Private Sub worksheet_change(ByVal target As Range) 
If InStr(target.Value, "*") > 0 Then 
    target.Value = Left(target.Value, InStr(target.Value, "*") - 1) * 2 
End If 
End Sub 

Ce code utilise un événement de modification pour détecter les modifications apportées aux cellules. S'il y a *, la valeur sera automatiquement doublée